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VENTE PAR CORRESPONDANCE 
LOGICIELS POUR APPLE" 





IL (fonctionnent sur ][ + et //e, le C figurant à côté d'un nom 
indique que le programme est garanti fonctionner sur //C) 
JEUX Prix TIC. 
ARCADE AEEO001 DROL (Broderbund) 350,00 
AFE001 E ZAXXON (Datasoft) 380.00 
AGE001 MINIT MAN (Penguin) 200,00 
AGE002 BOUNCING KAMUNGAS (Penguin) 300,00 
AJE001 NIGHT MISSION PINBALL (Sublogic) 350,00 
ARE002 AQUATRON (Sierra) 300,00 
AEE002 SPARE CHANGE (Broderbund) 350,00 
AVEO001 WAY OUT (Sirius) 270,00 
AWE001 [a THE HEIST (Micro Fun) 410.00 
AEE003 GUMBALL (Broderbund) 310,00 
AJE002 FLIGHT SIMULATOR II (Sublogic} 550,00 
AUE001 C SUMMER GAMES (Epyx) 410,00 
AEE004 CHOPLIFTER (Broderbund) 340.00 
AWE001 MINER 2048£R (Micro Fun) 400,00 
ARE003 OILS WELL (Sierra) 300,00 
AGE004 THE SPY STRIKES BACK (Penguin) 200,00 
STRATEGIE AMEO001 PROF. TOURNAMENT G@LF (Strategic) 400.00 
AAE001 SARGON III (Hayden) 470,00 
AME002 BATTLE OF NORMANDY (Strategic) 400,00 
AVENTURE AHE001 MAS@UERADE (Phoenix) 350,00 
AIE001 LEGACY OF LLYLGAMYN (Sir-Tech) 400,00 
ARE001 DARK CRYSTAL (Sierra) 380.00 
UTILITAIRES 
IMPRESSION ATEO0!1 C  SIDEWAYS (Funk) 620,00 
EDIT. BASIC ADE001 re: G PL.E. (Beagle Bros) 600,00 
TABLEUR ABE002 MULTIPLAN (Microsoft) 1 750,00 
COMMUNIC. AKE001 C ASCII EXPRESS: THE PRO (United) 1.200,00 
/Je uniquement : (60 ci) 
ORGANISATION A@B001 THINK TANK (US) {Living Videotex) TÉLÉPHONEZ) 
TABLEUR+ ANF001 TK! SOLVER (US) (Software Arts) 3 700,00 
//c et //e uniquement : (60 co) 
FICHIER ACF001 PFS FILE (US) (Software Publ.} 1.250,00 
IMPRESSION ACF002 PFS REPORT (US) (Software Publ } 1.250,00 
FICHIER ASFO001 HOME CATALOGER (US) (Continental) 520,00 
“Macintosh: 
JEUX 
ARCADE BAGO001 MAC VEGAS (US) Rouletle-Poker-Blackjack-Keno- TÉLÉPHONEZ* 
Baccarat-Machine à sous-Craps ER 
STRATEGIE AAG001 SARGON Il! (US) (Hayden) TÉLÉPHONEZ! 
AXG001 MILLIONAIRE (US) (Blue Chip) 680.00 
AXG002 BARON (US) (Blue Chip) TÉLÉPHONEZ! 
AXG003 TYCOON (US) (Blue Chip) TÉLÉPH@NEZ! 
AGG003 TRANSYLVANIA (US} (Penguin) 400,00 
AGG005 PENSATE (US) (Penguin) 430.00 
AZGO001 RUN FOR THE MONEY (US) (Scarb.) 460.00 
BAGO02 MAC GAMMON (US) TÉLÉPHONEZ!+ 
BAG003 MAC CHECKERS & REVERSI (US) TÉLÉPHONEZ! 
UTILITAIRES 
TABLEUR ABG002 MULTIPLAN (US) (Microsoft) TÉLÉPHONEZ! 
GRAPHIQUE ABGO005 MICROSOFT CHART (US) 1 300,68 
LANGAGE ABG006 MICROSOFT BASIC (US) 1.400.00 
FICHIER ACG001 PFS FILE (US) (Software Pub.) 1 250,00 
IMPRESSION ACG002 PFS _REP@RT (US) (Software Publ.) 1 250,00 
FICHIER+ AYG001 FILEVISION (US) (Telos) 2 000.00 


Tous nos pnix sont valables dens la imite des stocks disponibles Nuus n ençassons vutre égiement que lors de l'expédition de veteg commande 
Toute commande non expédiée saus un délai maximum de 15 Jours sers temboursable sur vetre demande Tous nos enveis sent recommanéés 


* Apple est une marque déposée Apple Computer Inc 
** Macintosh est sous licence chez Apple Computer Inc 24, rue d'Anuaillé, 75017 Paris -572 55 15 
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(Joindre deux timbres tarif lettre normal) Rue - "° 
Code postal Ville 





un hredur WESTC@RP Téléphone 


Editorial 


Pour les possesseurs du Macintosh. une bonne et une mauvaise nouvelle à la fois La bonne nouvelle : 
le Macintosh 512K est amvé. La mauvaise nouvelle il en coûte 10.000 F hors taxe prix public. par 
rapport au 128K. la mémoire vous revient moins cher en mangeant du poisson. Pour le logiciel itou 
la bonne nouvelle est représentée par l'annonce de 8( logiciels. la mauvaise étant que l'on constate dès 
à présent du retard par rapport aux dates annoncées dans le dossier de presse Apple du Sicob l} est 
vrai que la mise au point d'un logiciel sur un équipement possédant les fonctionnalités du Macintosh 
n'est pas une sinécure Enfin. fidèles à notre promesse. nous développons dans ce numéro un cähier 
Macintosh. dans lequel nous essaierons de vous fournir. comme pour l'Apple. des programmes et des 
remarques vous apportant plus que la simple lecture des documentations 


Quant à la ligne Apple . la compatibilité relanve du  c (voir Pom's 13] fait qu auourd'hui il se vend 
encore un e pour Un c. trompent ainsi toutes les prévisions d'Apple. Comme le disent les sages 
asiatiques. la prévision est un art difficile. surtout quand elle porte sur l'avenir ! Résultat : il faut faire la 
queue pour acheter un e alors qu'on échange sans problème 1n chèque contre un  c prét à emporter. 


L'équipe de Pom's vient de s'enrichir de deux personnes D'ici la fin de l'année, nous espérons donc 
qu'il nous faudra moins de trois mois pour répondre à votre courrier Ceci dit, ne prenez pas Pom s 
pour une entreprise de conseil gratuite : certains lecteurs nous envoient des questions qui resemblent 
plutôt à un ‘cahier des charges” et pour lesquelles la réponse demanderait une véntable intervention de 
conseil C'est trop ! 


Une dernière remarque : certains contributeurs. dont nous admirons la ‘fluencv'. nous envoient des 
programmes dont tous les commentaires sont rédigés en anglais. amenant les lecteurs à croire que nous 
reprodutsons. Ô! honte. des programmes américains S'il vous plait, envovez donc des contributions 
entièrement en français 


Enfin. ultime bonne nouvelle : Olivier Herz est de retour du Japon avec toujours de l'hexadécimal plein 
la tête. Gageons que l'auteur de Haïfa. du H-Basic et de l'analvseur de stntaxe nous réserve encore 
quelques surprises ! 


Hervé Thiriez 


Photo de couverture : écran Portac avec battene incerperée. peur Apple c. fabrique par IEF {ver Micro Informations 
La forme du moniteur n'est pas définiive 


Ont coilaboré à ce numéro : Alexandre Avrane — Jearr Luc Bazanegue  Alexandn: Duback — Juan Michel Geuréuitch - Guy 
Lapautre — Thierry Le Tallec - Gérard Michel - Nicolas Monsanrat - Jeseph Pino - Erick Ringot - Herve Thiriez Rédacteurs : 
Alexandre Avrane - Gérard Michel Directeur de la pubiicatien, rédacteur en chef : Hervé Thirniez Dessin : Laurent Bidot 
Siège social et abonnements : Editiens MEV 64-70. rue des Chantiers 78000 Versailles Tél: (31 951 24.43 

Rédaction et courrier des lecteurs : 59. bd de Glatigny - 78000 Versailles 

Régle publicitaire : Force 7 Anne Jeurdan - 5. piace du Colonel Fabien 75010 Pans Tél : [11 2402201 

Diffusion N.M.P.P. : Sophie Marnez Tél (1} 2482201 

Composition : Télécempe 13 15, avenue du Petit Parc 94360 Vincennes Tél 328 14 63 

Impression : Rossy 47, avenue de Paris 94300 Vincennes - Tél. : 328.18 63 
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programmer 
#  unordinateur est 
devenu pour vous 
un loisir, un plaisir... 
une passion, sachez que LIST a été créé 
pour vous. LIST vous aide à tirer davantage 
de votre matériel, à vous perfectionner 
dans la conception des programmes 
qui “tourneront” Sur votre Machine. 
LIST vousinitie aux langages informatiques 





et sélectionne les mellleurs livres pour Re LL. _ 
progresser. LIST vous informe de l'actualité PS | 
et vous fournit trucs, astuces et idées D” 
pour mieux programmer... PL ptet PE 
Pour être sûr de ne rater aucun numéro # à SES à LIST ! 
et pour RREVO LIST chez vous, Ÿ (service abonnement) | 
abonnez-vous! 2 5, place du Colonel-Fabien, 
75491 Pans Cedex 10 


4 






IST, M | 2 —_—_—— 
L G R AM ER }, Veuillez m'abonner pour 10 numéros au prix 
O sournaux # avantageux de 160 F* au lieu de 200 F. Je fais ainsi 
archa nd de} {une économie de 40 F sur le prix de vente au numéro. 
F chez votre M + de joins mon règlement indispensable libellé 
20 » à l'ordre de LIST. 


+ * Belgique: 1330 FB; Suisse: 50 FS: Canada : 30 $C; 
7 autres pays: 210FF. 


Un éditeur de secteurs : MOBBY DISK 


Le programme le plus utile en cas 
d'opération malheureuse sur dlis- 
quette est certainement l'éditeur de 
secteurs où ‘DISK ZAP”. Il permet 
l'affichage à l'écran et la modification 
des codes hexadécimaux contenus 
sur la disquette. Îl est ainsi possible 
d'intervenir directement au niveau 
des secteurs pour recouvrer un fi- 
chier "DELETé”, une disquette qui 
ne BOOTe plus, ou pour rendre co- 
hérent un enregistrement qui com- 
porte une erreur. L'intérêt de ce type 
de programme ne se limite pas à la 
remise en état des secteurs : il de- 
vient par exemple possible de suivre 
précisément Île travail du DOS. 


Parmi les plus connus, on peut citer 
INSPECTOR. WATSON et surtout 
DISKFIXER. Ce dernier aurait ma 
préférence, mais il lui manque certai- 
nes options de WATSON telles que 
le désassemblage et le choix de la 
page mémoire à éditer. 


[L était intéressant de tenter de faire 
tenir en moins de 2K les principales 
fonctions. En effet, le possesseur de 
carte EPROM peut alors avoir en 
permanence à portée de la main un 
utilitaire dont l'usage se révéle fré- 
quent, sans devoir le charger depuis 
la disquette. À vous de juger si le jeu 
en valait a chandelle. 

Notez que la version publiée ici fonc- 
tonne en RAM et n'a donc besoin 
d'aucune extension particulière. 


Après avoir entré et sauvegardé le 
code-objet, le programme se lance 
simplement par. BRUN MOBBY- 
DISK. 


Examinons les commandes 


Modes d'affichage 


B sélectionne le mode d'affichage 
mixte, dans lequel le contenu du buf- 
fer est affiché simultanément en 
hexadécimal et en ASCIH C'est le 
mode d'affichage par défaut. En rai- 
son des dimensions de l'écran, seule 
une moitié du buffer est affichée; on 
accède à la deuxième moitié en dé- 
placant le curseur au-delà des limites 
de la fenêtre. 


H affiche le contenu du buffer en 
hexadécimal seulement 

G affiche en ASCII seulement. 

Y commute le filtre permettant de 


n'afficher que les caractères en ASCII 
normal. 
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Lecture-écriture 


D commande le changement de 
drive. 


R permet la lecture d’un secteur : le 
curseur se positionne alors sur le nu- 
méro de la piste à indiquer en hexa- 
décimal. Si le numéro en cours 
convient, faire simplement RETURN. 
Le curseur passe alors au numéro de 
secteur que l’on contrôle de la même 
manière. Les flèches gauche et droite 
commandent la lecture des secteurs 
précédent et suivant. 


AG 
a? - PE 
‘ 3 


2 










re 





PA 


W recopie sur la disquette le contenu 
du buffer. On indiquera les numéros 
de piste et secteur comme dans l'op- 
Gon lecture. 


Edition d'un secteur 


1, J, K, M déplacent le curseur res- 
pectivernent vers le haut, la gauche, 
la droite, le bas. Le rang de l'octet 
est affiché sur la ligne supérieure. 


: autorise la modification de l'octet 
où se trouve le curseur Selon le 
mode d'affichage, on pourra ainsi 
entrer un caractère ASCII ou une va- 
leur hexadécimale 


T en mode ASCII commute l'écriture 
en normal, inverse ou clignotant. Le 
symbole ‘#"” en bas à droite de 
l'écran refète cet état. Les caractéres 
inverses ou clignotants ne seront visi- 
bles que si le filtre est supprimé (se 
reporter à la commande ‘Y”}. 


en 


RTS nie 


/ À \ RE = 


Thierry Le Tallec 


RETURN pennet la saisie d’un texte 
ou de valeurs hexadécimales à la 
volée. Dans les modes mixtes et 
hexa, tous les octets modifiés appa- 
raissent en inverse jusqu’à l'écriture 
ou la lecture d’un secteur de la dis- 


quette. 
ESC sort de ce mode de saisie. 


— restitue l’ancienne valeur en cas 
d'erreur. 


X annule toutes les modifications 
d’un buffer. 


P autorise le choix de la page mé- 
moire qui sert de buffer. L’adresse 
de ce dernier est indiquée en clair au 
bas de l'écran. On en changera en 
donnant directement l'adresse au cla- 
vier. Par défaut. le buffer est en 
$4000. 

A noter qu'il est également possible 
de changer la page du buffer sans 
passer par la commande P, en util- 
sant les signes “<'' et ">", respecti- 


vernent pour diminuer ou augmenter 
de $100. 


Désassembleur 


CTRL-D provoque le désassemblage 
de la page buffer. La barre d'espace- 
ment fait progresser d'une ligne, la 
touche RETURN d'une page écran 
(12 lignes). 


ESC sort du mode désassernbleur 


Hard-copy d'écran 


CTRL-P vous donne une copie im- 
primante (sortie parallèle) de l'écran. 
les caractères inverses et clignotants 
étant recodés avant impression. Cette 
commande suppose que votre impri- 
mante est connectée dans le slot 1. 


Q permet de quitter le programme et 
rend la main au niveau du moniteur 


NDLR : une version en EPROM est 
disponible pour les lecteurs possé- 
dant une carte RAM'EPROM; 
TIMERPORTS PARAELELES. Vous 
pouvez à cet égard prendre contact 
avec l’auteur. Mr Le Tallec, 69 rue 
Sauveur Tobelem 13007 MAR: 
SEILLE: 


SE vous n'êtes pas encore abonné à Pomm's 
prenez le MN en > 
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Source Big Mac 69 LENGTH = $2F 
70 INUFLG = $32 
À 262626 DE DE DE DE DE DE JE DE DE M6 DE AE DE DE DE DEN JE DE DE DE DE JE DE DE EE 71 YSAVI = $35 
2 * # 72 PCL = $3A 
3 +* ...Mobbr-Disk... # 73 PCH = $38 
4 * * 74 RUTS = $3D9 
S *# Thierry Le Tallec * 75 GETI9B = $3E3 
é * # 76 KBD = $C000 
7 6 6 ét 6 6 6 6 6 6 26 6 26 6 6 26 6 6 6 26 6 26 6 26 6 6 6 6 6 6 6 6 Ars KBOSTRE = $C010 
8 78 SPKR = $C030 
9 x Utilitaire de lecture-{criture de 79 INSTOSP = $F8D0 
disques 80 PRBLNK = $F94A 
10 81 PCABJ = $F9S2 
11 EPROM KBD 50 = RAM, 82 INIT = $F82F 
1 = EPROM 83 TABV = $&FBSB 
i2 00  EPROM 84 BASCALC = $FBCI 
13 ORG $CS00 85 HOME = $FCSB 
i4 ELSE 86 CLREOL = $FC9C 
15 ORG  $B900 87 CROUT — $FD8E 
té FIN 88 PREYTE = $FDDA 
17 89 COUT = $FDED 
18 * constantes: 90 SETNORM = $FE84 
19 91 OUTPORT = $FE9S ;PRHn 
20 LSTe2 OFF 92 +* 
21 FRANCAIS K8D 93 108 = $100 
22 DO FRANCAIS 94 SLOT = 108+i 
23 LST ON 95 DRIVE = 108+2 
24 trackpos = 7 96 VOLUME = 1DB+3 
25 sectpos = Le 97 TRACK = 10B+4 
26 byrtepos = 29 98 SECTOR = 10B+5 
27 volpos = 36 99 USRBUF = 108+8 
28 EST SUP 108 CMDCODE = 10B+12 
29 ELSE 101 ERRCODE = 10B+13 
30 EST ON 102 VOLFND = 108+14 
31 trackpos = 7 103 SLOTFND = 108+15 
32 sectpos = 18 104 DRUFND = 108+16 
33 bytepos = 27 105 +# 
34 volfo< = 38 106 
35 CST OFF 107 TR 
36 FIN 108 AST 32 
37 LST ON 109 LDX #8FF 
38 bufpos = 8 110 TXS sinitialis 
39 CR = $80 e ja pile 
A0"ctr1 0, 564 t11 STX mask scaractdre 
ai ctrt_P ui $70 s normaux 
42 ESC s $78 112 STX filter sfiltre en 
43 * service 
44 temp = $06 113 INX 
45 curCH = 3508 114 STX byte 
4é curCv Z di 115 STX display ;affichage 
47 dfltval = 819 ee 
48 val = $iA té STX base jadresse d 
49 dignum = $i8 S'bace = #00 
S0 mask _ $1E 117 AST 32 
51 byte = $E3 118 TITLE JSR INIT 
52 display = $EB s0=mixte, 119 JSR HOME 
I=hexa, 2=ASCII 120 JSR  MSGOUT 
53 filter = $EC 5#00=off, 121 INU  "GROSSIERS SOFTWARE" 
$#80=0n 122 ASC * <Mobby-Disk> * 
S4 CHtemp = $ED 123 INU "02/05/84" 
S5 base = $EE 124 BRK 
Se vfist = $EF 125 JSR MSGAT 
57 bufotr = $FA 126 DFB 0,2 
58 S8UF = $200 127 EST OFF 
59 EBUF = +4000 128 DO FRANCAIS 
60 + 129 LST ON 
61 WNDTOP = $22 130 ASC “Piste $ /Secteur % 
62 WUNDBTM = $23 /Octet 8 /Vol. $ " 
63 CH = $24 131 LST OFF 
é4 CU = 825 132 ELSE 
65 BASL = $28 133 LST ON 
66 BASH = $29 134 ASC “Track $ /Sector +$ 
67 GBASL = $26 /Brte 8 /Volume $ "“ 
68 GBASH = $27 135 LST OFF 
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136 FIN 

137 LST ON 

138 BRK 

139 LOY #39 

146 LDA #"-" 

141 Ti STA +$480,Y strace 3 ! 
ignes de pointillés 

142 STA 5580 ,Y 

143 STA +650 ,Y 

144 DEY 

145 BPL Ti 

146 JSR MSGAT 

147 OFB 0.21 

148 ASC "Buffer 50000" 

149 BRK 

150 JSR MSGAT 

151 DFB 33,21 

152 ASC "Drive " 

153 8RK 

154 JSR GETIOB 

155 STY temp 

156 STA  temp+i 

157 LOY #16 

158 MOVIOB LDA (temp), 

159 STA (10B,Y srecopte | 
I0B en zone connue 

160 DEY 

1ét BPL MOLVIOB 

162 ENY 

163 STY  USRBUF 

164 STY bufptr 

165 LDA  #)EBUF 

léé STA  bufptr+i 

167 + 

168 WRMSTRT JSR PRBUF 

169 LDA ##80 

170 JSR PSNBRAC saffiche | 
es ") CS 

171 MAIN JSR MSGBTM 

172 ASC. "=>" 

173 8RK 

174 UJSP  GETCMD 

175 BCC MAIN sattend co 
mmande sSurvante 

176 BCS WRMSTRT irafraichi 
t J'Ccran st carry 

177 7% 

178 GETCMD JSR GETKEY 

179 LDY  HSUBTSL-CMDTBL 

180 CMDSRCH DEY 

181 BMI  NOTFND 

182 CMP  CMOTBL,Y 

183 BNE  CMDSRCH 

184 TYA 

185 ASL 

186 TAY 

187 LDA SUBTBL+1,Y 

188 PHA 

189 LDA SUBTBL,Y 

199 PHA 

191 RTS 

192 NOTFND CMP  #"0" 

193 BLT BADCMD 

194 CMP #*9" 

195 BGE BADCMD 

196 AND  ##&0F 

197 STA temp 

198 LDA bufptræ+i 

199 AND  #5FO 

200 ORS temp 

20t STA bufptr+! 

202 SEC 

203 RTS 

204 8ADCMD JSR  SOUND 
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205 
206 
207 
208 
209 
210 
211 

212 
213 
214 
215 
216 
217 


218 
21? 


JMP 
AST 
ASC 
ASC 
ASC 
ASC 
ASC 
ASC 
ASC 
ASC 
ASC 
ASC 
ASC 


CMOTBL 


ASC 

ASC 
ASC 

ASC 
ASC 

ASC 

ASC 

ASC 

t 

DF8 

une chaine 
HEX 

r£tetdent 
HEX 
utvant 

OFB 
le le buffer 

SUBTBL DA 

DA 

DA 

DA 

DA 

DA 

DA 

DA 

DA 

DA 

DA 

DA 


UP SEC 


LEFT 


RIGHT 


DEuN 


GETCMD 
32 


"I" gmonte curseur 


*“J“ jeurseur d gauche 
"K® scurseur qd droite 
"M" ;descend curseur 
°Y" j;fsltre on‘off 
"TO ;NRM, INV ou FES 
*G" ;jAscii 

"H° jhexa 

*"B" j;mixte 

"R" lire un secteur 
"WU" ;Ccrire un secteu 


"X" srestore buffer 
"D" ;chanae de drive 
*a" ;quitter 

"P" ;change de page 
*<" spage préc(tdente 
">" ;jpage suivante 
+" srestore un octet 
"sys" ssaltsie d’un octe 


CR sSaisie d’ 
8B secteur p 
95 secteur s 


ctri_D ;gCsassemb 
UP-1 
LEFT 
RIGHT-1 
DOWN -1 
FILTER-I 
ROLMASK -t 
SETASCII-I 
SETHEXRA - 1 
SETMIXT-1 
ROSECT-I 
WRSECT -1 
RSTBUF -1 
CHGORV-1 
QUIT-1 
CHGEUF -1 
PRUBUF -1 
NXTSUF-1I 
UNCHNG-1 
CHGBYT-1 
CHGDATA-1 
PRUSCT -1 
NXTSCT-I 
DISASM-! 
32 


byte 
vést 
PSNBYT 


byrte 


PSNBYT 


byrte 


PSNBYT 








273 PSNBYT PHA 
274 LDA #Q 
275 JSR  PSNBRAC 
ciens “> eu 
276 PLA 
2R7 STA byrte 
278 JSR SHOUWBYT 
279 LDA #58û 
280 JER  PSNBRAC 
ouveaux "> <«<” 
281 CLC 
282 RTS 
283 
284 PSNBRAC  PHA 
2853 NXTBRAC SEC 
286 LDA byrte 
287 SBC base 
la demi-page 
288 STA temp 
289 LOY display 
e re 
290 BNE NXTB8RI 
ute 
291 TAX 
ste la demi-paae 
292 BPL  SAMEPAG 
293 JSR PRBUF 
demi-page ss: besoin 
294 JMP  NXTBRAC 
+ 295 SAMEPAG  L£SR 
el 29é LSR 
Les r 8 (caicule ta ligne} 
297 LSR 
p 298 TAX 
+] 299 LDA temp 
k 300 AND #$07 
” osition dans la Frgne 
301 BPL NXTBR2 
uJours) 
302 NXTBRI LSR 
303 LSR 
304 LSR 
r 16 {modes “G”" et "H") 
305 LSR 
306 TAX 
307 LDA temp 
308 ANS  H$0F 
osition dans la ligne 
309 NXTBR2 STA temp 
310 TXA 
ligne 
311 CLEC 
312 ADC #4 
313 STA  curCU 
314 JSR TAB! 
315 LDA temp 
position dans la ligne 
316 ASL 
caractères par octet) 
317 CÈÉC 
318 LOY display 
e ? 
317 BEQ PRBRS 
ute 
320 DEY 
? 
321 BEQ PRBR4 
ute 
322 ADC #4 
1 : marge = 4 
323 TAY 
324 PLA 
le code 
D 


10 


efface an 


saffiche n 


sdttermine 


smode mixt 
sNONn =) sa 


sou => te 


schange de 


divise pa 


sreste = p 


stsaute to 


sdivise pa 


reste = p 


sr {cupre 


sr<{cupire 


sdouble (2 


ymode mixt 
jout =} sa 
ymode hexa 
JOUûUr =} sa 


smode ASCI 


sr(cupire 


325 JSR BRACKETS 
324 STA  (BASL) ,Y smet ou en 
l)ve ">" 
327 INY 
328 STY  curCH 
329 INY 
330 TXA 
331 STA  (BASL),Y ymet ou en 
J>ve *<" 
332 RTS 
333 
334 PRBR3 ADC #h4g smode mixt 
e : marge = 4 
335 ADC temp :3 caract} 
res par octet 
336 TAY 
337 PLA sr {cupire 
le code 
338 JSR BRACKETS 
339 STA  CBASL),.Y jmet ou en 
Jjve ">" 
346 INY 
341 STY curCH 
342 INY 
343 INY 
344 TXA 
345 STA CBASL),Y smet ou en 
layer ie" 
346 RTS 
347 
348 PRBRA ADC #5 smode hexa 
: marge = 5 
349 TAY 
350 STY curCH spositionn 
e le curseur 
351 PLA srtcupire 
le code 
352 FLASHIT TAX ;$00=normal, $880=flas 
hing 
353 BPL  NOFLASH 
354 LDX #2 
355 FLASHI LDA (BASL) ,Y slit carac 
tire (Ccran 
356 AND #37F 
357 ORA  #890 
58 STA  (BASL),Y sle fait € 
ltgnoter 
359 INY 
360 DEX 
361 8SNE FLASH: 
362 RTS 
363 NOFLASH STY CH 
364 LODY byrte 
365 JMP  OUTBYTE 
366 
367 SHOUBYT JSR MSGAT 
368 OFB byrtepos.2 
369 ERK 
370 LDOR byrte 
371 JMP  PRBYTE 
372 
373 BRACKETS TAX :A=$80 =} 
Am")" X="4" 
374 EMI  BRACK 
375 LOA #*“ " 3A=$00 => 
à=" “ s = 0" 
376 TAX 
377. RTS 
378 
379 BRACK LDA #°>’+840 
380 LOX #’<’+8540 
3B1 RTS 
382 AST 32 


Pom's n° 15 


383 FILTER  LDA filter met ou en 446 PRUSCT DEC SECTOR lit le se 





live Te filtre cteur préctdent 
384 EOR #$80 447 BPL  PRVI 
385 STA filter 448 LDA #H$0F 
386 SEC 449 STA SECTOR 
387 RTS 450 DEC TRACK 
388 AST 32 451 SPL  PRVI 
389 ROLMASK LDA mask 452 LDA ##$22 
2. LSR 453 STA TRACK 
CMP  H$1F 
372 BNE  ROLMSKI — RS su PE 
393 LDA #$FF 456 NXTSCT LDY SECTOR jlit le se 
394 ROLMSKI1i STA mask teur sarvant 
395 RTS 457 INY 
376 Reloree 458 CPY Hé 
397 SETASCII LDA #0 imode = AS 459 BNE NXTI 
CII <G) 460 LOY  #a 
398 LOY #2 461 LOX TRACK 
399 BNE  SETMODE 462 INX 
400 SETHEXA LDA #0 mode = he 4463 CPX #$23 
xa CH) 464 SNE  NXTO 
401 LOY  #i 465 LOX #0 
402 8SNE  SETMODE 466 NXTO STX TRACK 
403 SETMIXT LDA base mode = mi 467 NXTI STY SECTOR 
xte (B) 468 JMP  RDSECTI 
404 LOY #0 469 AST 32 
405 SETMODE STA base 470 CHGDRV LOA DRIVE schange de 
40é STY display drtue 
407 SEC 471 ER #$03 
408 RTS 472 STA DRIVE 
409 AST 32 473 SEC 
410 ROSECT JSR  GETPRMS 474 RTS 
4i1 ROSECTI LDA  #i 475 AST 32 
412 SETRUTS STA CMDCODE 474 QUIT JSR INIT sefface |” 
413 JSR GORWTS {cran et quitte ie programme 
414 SEC 47? JSR HOME 
4is RTS 478 JMP  $FF65 
46 479 AST 32 
417 GETPRMS LDA #2 ;:VTAB 2 480 CHGBUF LDA #21 
4i8 JSR  TABV 481 JSR TARBL 
419 LOY #trackpos :;HTAB n 4382 LDR bufptr+i 
420 LDA TRACK 493 LOY #bufpos 
421 JSR GETBYTE sattend nu 384 JSR GETBYTE 
mtro de piste 48s STA bufptræ+i 
422 CMP #36 smax 36 pi 486 SEC 
stes 487 RTS 
423 BGE  GETPRMS 488 AST 32 
424 STA TRACK 489 UNCHNG LDY byte srestore | 
425 GETPRMS2 LDY #sectpos :HTAB n ‘’octet of est le curseur 
424 LDA SECTOR 490 LDA  SBUF,Y 
427 JSR GETBYTE sattend nu 491 STA (bufptr),Y 
miro de secteur 492 JMP  CHGBYT4 
428 CMP #16 smax 16 se 493 AST 32 
cteurs 4794 CHGDATA JSR CHGBYT spermet ]l° 
329 BGE GETPRMS2 {dition du buffer 
430 STA SECTOR 495 JMP  CHGDATA 
431 SEC 496 AST 32 
432 RTS 497 CHGBYT LDA curCv spermet 1” 
433 AST 32 {dition d’un octet 
434 WRSECT JSR GETPRMS 498 JSR TABL 
435 LDA #2 499 LOY byrte 
436 SNE  SETRUTS 500 LDA <bufptr),Y 
437 AST 32 SIR! LDY curCH 
438 PRVBUF DEC bufptr+i sbuffer = S62 STY CH 
page prtetdente 503 LOX display smode mixt 
439 SEC e ? 
440 RTS 504 CPX  H2 smode ASCI 
441 AST 32 I ? 
442 NXTBUÜF INC  bufptr+i sbuffer = 505 BNE  CHGBYT2 snon =} sa 
page suivante ute 
443 SEC 506 JSR GETKEY 
444 RTS 507 JSR DOMASK 
4a5 AST 32 908 JMP  CHGBYT3 


Pom's n° 15 11 


ASE 0 CODE 


12 


509 
S10 
Sii 


512 
513 
514 
515 
S1é 
517 
518 


519 
520 
521 

522 
523 
924 
929 

526 
D2r 
528 
529 
530 

931 

532 
933 
934 
535 
536 
937 
538 
539 
540 
541 

542 
943 
944 
545 
546 
547 
548 
549 
550 


991 
532 


533 


554 
959 


95936 
537 
558 
999 


960 
561 
562 
563 
904 
565 
556 
567 
548 
569 
970 
971 
572 
973 
574 


CHGBYT2 JSR GETBYTE 
CHGBYTZ LDY byte 
STA  (bufptr).Y 
nouvelle valeur 
CHGBYT4 INY 
STY CHtemp 
JSR PRBUF 
LDA CHtemp 
JMP  PSNBYT 
AST 32 
DI SASM LOR #4 
te le buffer 
STA  WNDTOP 
LDA #20 
STA  WNDBTM 
JSR HOME 
LDA #18 
JSR TABV 
LDA bufptr 
STA PCL 
LDA bufptr+i 
STA  PCH 
DISO LDX #1lé 
DIS! STX temp 
DIS2 JSR  INSTDSP 
LDY LENGTH 
DIS3 LDA  <PCL)D ,Y 
STA 55F3.Y 
DEY 
BPL  DIS3 
JSR PCADJ 
STA PCL 
STY  PCH 
DEC temp 
BNE DIS2 
DIS4 LDA  KBD 
BPL D1S4 
JSR GETCP 
LOX #1 
CMP  #CR 
8EQ DISO 
BNE DISI1 
AST 32 
PRBUF LDA #4 
e contenu du buffer 
STA CV 
LDY display 
e ? 
BNE  PRBUFO 
ute 
SEC 
LDA byte 
termine la demi-page 
SBC base 
BPL  PRBUFO 
LDA base 
EOR #580 
demi-page S1 besoin 
STA base 
PRBUFO LDA base 
STA temp 
PRBUFI LDA CV 
JSR TABV 
JSR PRLINE 
INC Cu 
LDA CV 
CMP #20 
BNE  PRBUF1 
SHOWPRMS LDA #2 
JSR TABL 
LDA  TRACK 
LDY #hKtrackpos 
JSR DSPBYT 


range }la 


sd(sassemb 


:VTAB 18 


saffiche | 


:UTAB 4 
smode mi xt 


snon => sa 


jouit =) d{ 


schange de 


:UTAB 2 


saffiche 1] 


9575 
576 
577 


578 
S79 
530 


581 
582 
583 


584 
585 
586 
587 
588 
5e? 


590 
591 
592 
593 


594 
595 
596 
522 
3598 
599 


600 
é01 
602 
603 


604 
605 
606 
60 7 
608 


609 
610 
él1 
612 
613 
614 
615 
611$ 
#17 
618 
619 
620 
621 
622 
623 


624 
625 


$25 
627 
628 
629 
630 
631 
632 
633 


634 


635 


e numéro de piste 
LDA SECTOR 
LDY #sectpos 
JSR DSPBYT 
e num(ro de secteur 
LDA byte 
LDY Hbytepos 
JSR DSPBYT 
e rang de l’octet 
LDA VOLFND 
LDY  Hvolpos 
JSR DSPBYT 
e num(ro de volume 
LDA DRIVE 
CMP DRLFND 
SNE  INVDRU 
ORA  #550 
INVUDRU ORA  #530 
STA $eF7 
e drive en service 
LDA #H2i 
JSR TAB! 
LDA  bufptr+i 
LDY #bufpos 
‘adresse du buffer 
DSPBYT STY CH 
JMP  PRBYTE 
PRLINE LDY #0 
STY CH 
STY temp+i 
dans la ligne 
LDA #"s" 
JSR COUT 
LDA temp 
JSR  PRBYTE 
$", l'adresse 
JSR GUTSPACE 
JSR  OUTSPARCE 
HEXASC LDY temp 
LDA  (bu#ptr),Y 
LDX display 
mode d‘atfichage 
BEQ MIXTE 
DEX 
BEQ HEXA 
JSR  OUTCHAR 
JSR OUTSPACE 
JMP ASCII 
HEXA JSR  OUTBYTE 
ASCII INC temp 
INC  temp+1i 
LDA temp+i 
CMP #14 
BNE HEXASC 
STA vufst 
JMP  CLREGL 
MIXTE PHA 
IXTE #= 
JSR OUTBYTE 
JSR OUTSPACE 
LDY CH 
LDA #32 
CLC 
ADC temp+i 
STA CH 
PLA 
JSR  OUTCHAR 
STY CH 
H 
INC temp 
octet suivant 
INC  temp+i 


saffiche 1] 


saffiche 1] 


saffiche 1! 


saffiche 1 


;UTAB 21 


saffiche 1] 


sposition 


saffiche " 


steste Île 


:#*x MODE M 


ssauve CH 


srestore C 
spointe 1” 


“compte ju 


Porn's n° 15 


squ’2 B fors 


636 LDA  temp+li 

637 CMP  #B 

638 BNE  HEXASC 

639 STA  ufst 

640 LOX #3 

641 JMP  PRBLNK 

642 

643 OUTBYTE LOX H$FF 

644 LOA (bufptr),Y 

645 CMP  SBUF,Y 

646 BEG NORMAL 

647 LOX #$3F 

64B NORMAL STX  INVFLG 

649 JSR  PRBYTE 

650 JMP  SETNORM 

65! 

652 GUTSPACE LDA H" * 

653 OUTCHAR CMP  H$AC 

654 BGE  OUTCH2 

655 BIT filter 

656 BPL  OUTCH2 

657 ORA ##530 

658 CMP  #$EUÙ 

659 BLT  OUÙUTCHI 

660 AND #H#t011i111 

661 OUTCHI CMP  H$A0 

662 BGE  OUTCH2 

663 LOA #"_" 

664 OUTCH2 STY  YSAUVI 

665 LOY CH 

666 STA (BASL) ,Y 

667 INC CH 

668 LDY  YSAVI 

669 RTS 

670 AST 32 

671 GETBYTE STA dfitual 
valeur par dCfaut 

672 STY  CHtemp 
ition dans la ligne 

673 GETBYTI LDA CHtemp 

674 STA CH 

675 LDA #2 

676 STA  dignum 
ctires par octet 

677 LDA #0 

678 STA val 
e la valeur 9 z{ro 

679 LDA dfitval] 

680 JSR  PRBYTE 
a valeur par dfaut 

681 LDY CHtemp 

682 STY CH 

683 NXTOIG LOY CH 

684 LDA CBASL)D ,Y 
1ffre sur l’{cran 

685 STA  temp+i 
ce chiffre 

686 JSR GETKEY 
e touche 

687 STA (BASL),Y 
e chiffre tap( 

688 CMP  #$588 
#7 

689 BEQ GETS8YTI 
commence 

690 CMP HKCR 

691 BEQ GETBYT3 
vient tout de suite 

692 CMP  #"0”" 
chiffre hexa (0-F) 

693 BGE  GOCD0 

6794 8SAONUM JSR  SOUND 

Pom's n° 15 


srange la 


set la pos 


sdeux cara 


srnitialtis 


jaffirche 1 


sirt un ch 
$mtmorise 

sattend un 
saffiche ] 
sbackspace 
sure 


oui 


return ? 
jour => re 


jteste s1 


sinon "so 


nne”", 

695 LDA  temp+i srCcupir'e 
chiffre originel), 

696 EDY Lx CH 

69? STA (BASL),Y le remet 
sur l’(Ccran, 

698 JMP NXTDIG jet va att 
endre autre chose, 

69° GOOD0O CMP  #"9*+1 

700 BLT GGODI 

701 CMP  #"A“ 

702 BLT  BADNUM 

703 CMP Hh"EFT+1 

704 BGE  BADNUM 

705 SBC fé 

706 GOODI AND  H$O0F 551 le chi 
ffre est valabie, 

707 STA temp+li 

708 LDA val 

709 ASL 

710 ASL 

711 ASL 

712 ASL 

713 ORA  temp+i ;51/1introdu 
it 9 ta droite de val, 

714 STA val 

21253 DEC dignum 

716 BNE  GETBYT2 jet passe 
au chiffre suivant. 

717 LDA val 

713 SEC 

79 RTS 

720 GETBYT2 INC CH 

721 LOY CH 

722 LOA #" " 

723 STA (BASL).Y 

724 JMP  NXTDIG 

725 GETBYT3 LDA dignum 

724 CMP #2 

D BNE  GETBYTA 

728 LDA dfitual 

229 STA val revient a 
rec la vaieur par dfaut 

730 GETBYT4 LDOA CHtemp 

731 STA CH 

F 32 LDA val 

733 JSF  PRBYTE 

734 LDA va 

735 SEC 

736 RTS 

737 AST 32 

738 GORUTS LDA HO 

739 STA VOLUME 

740 LDA bufptre+i 

741 STA  USRBUF +1 

742 LDY #I10OB 

743 LDA #)I0OB 

744 JSR RUTS 

745 BCC SAUBUF 

746 JSR  SOUND 

747 LST OFF 

74B DO FRANCAIS 

749 LST ON 

750 JSR MSGBTM 

751 ASC “Erreur d" 

752 BRK 

753 LDA CMOCODE 

754 CMP #2 

755 BEQ WRERR 

756 JSR MSGOUT 

PAST ASC ‘e lecture" 

758 BRK 

759 RETRY JSR MSGOUT 

D 


13 


PEER ft RSS ui 


là 


760 
761 

762 
763 
764 
765 
766 
767 
76B 
769 
770 
PAL 

772 
773 
774 
775 
776 
777 
778 


ASC , NOuvel essai ?° 
BRK 
JSR GETKEY 
CMP  #"Yy* 
BEQ GORUTS 
CMP  #°0* 
8EQ  GORUTS 
SEC 
RTS 
WRERR JSR MSGOUT 
ASC “’ecriture" 
BRK 
JMP  RETRY 
LST OFF 
ELSE 
LST ON 
JSR MSGBTM 
ASC "“can’t ‘ 
BRK 
LDA  CMDCODE 
CMP #2 
BEQ UWRERR 
JSR MSGOUT 
ASC "read 
BRK 
RETRY JSR MSGOUT 
ASC: **,- retry>2" 
BRK 
JSR GETKEY 
CMP R NY" 
8EQ GORUTS 
SEC 
RTS 
WRERR JSR MSGOUT 
ASC  ‘"uirite" 
BRK 
JMP  RETRY 
FIN 
EST ON 
AST 32 
SAVEUF LDY #0 
SAL'SUFI LDA (Cbufptr),Y ;srecopie 
e buffer de travail 
STA  SBUF,Y ; dans 
buffer de sauvegarde 
INY 
BNE  SAUVBUFI 
SEC 
RTS 
AST 32 
RSTBUF LDY #0 
RSTBUFI LDA SBUF,Y srecopie 
e buffer de sauvegarde 
STA  (bufptr),Y ; dan 
le buffer de travail 
INY 
BNE  RSTBUFI 
SEC 
RTS 
AST 32 
GETKEY JSR RDOKEY 
GETCP 8IT KBDSTRB 
CMP #ctri_P CHE? 
BEQ HARDCSPY jour =} 
pie l’{cran 
CMP  HhESC sescape 
8SNE  GETRTS 
LDX #$FF 
TXS 
JMP  WRMSTRT our =} 
start 
GETRTS RTS 


te 


S 


co 


? 


re 


827 
828 
829 
830 
831 
832 
833 
834 
835 
836 
B37 
838 
839 
840 
841 
842 
843 
844 
845 
Bd4é 
847 
848 
849 
850 
851 
852 
853 
854 
855 
85é 
857 
858 


859 


860 


861 
862 
863 
864 
865 
866 
867 
868 
869 
870 
871 
872 


873 
874 
875 
87é 
877 
878 
879 
880 
88 
882 
883 
884 


LDY 
LDA 
PHA 
LDA 
JSR 
STA 
LDA 
JSR 
8MI 
PLA 
PHA 
JSR 
8gpL 
PLA 
STA 
TXA 
RTS 


RDKEY 


ROKI 


KEYFOUND 


STA 
LDX 
STX 
LDA 
BMI 
DEX 
BNE 
DEC 
BNE 
STA 
TAX 
RTS 


BLINK 


SLINKI 


BLINK2 


DOMASK CMP 
a 


BGE 
pas 
LDX 
FLS ou 
CPX 
BNE 
CMP 
8GE 
EOR 
RTS 
AND 
RTS 
AST 
LDX 
LDA 
STA 
page z{tro 

DEX 
8PL 
LDX 
STX 
STX 
LDA 
JSR 
LDA 
STA 
JSR 
LDA 
STA 
LDA 
STA 
LDA 
JSR 
JSR 
LDY 
LDA 
CMP 
8GE 
ADC 


change 


e st 


DMSKi 
DMSK2 


HARDCOPY 
HARDO 


HARDI 


HARD2 


CH 
(BASL) ,Y 


#" #" 
DOMASK 
$7F7 
He 
BLINK 
KEYFOUND 


BLINK 
RDKI 


(BASL) ,Y 


(BASL) ,Y 
#50 

temp 

KBD 
BLINK2 


BLINKI 
temp 
BLINKI1 
KBDSTRE 


h$ES minuscule 


DMSK1 jour => ne 


mask test 
INU 

h#$7F 

DMSK2 

#$C0 

DMSK2 

#$C0 


;non: 


mask 


32 
#$2F 
9,X 


10B+17:X ysauve a 


H£ARDO 
#22 
WNDTOP 
WNDBTM 
#1 
OUTPORT 
#0 

temp 
BASCALC 
BASL 
GBASL 
BASH 


; PR# 


:UTAB 22 


(GBASL) ,Y 
#$20 
NOINU 
#$CO 


jinverse ? 


3OoUi =} no 


Pos n° 15 


895 NOINV CMP  #$60 sflashing 931 TAY 


? 932 S3 DEY 
896 BGE NOFLS 933 BNE S3 
897 ORA 580 joui => no 934 BIT SPKR 
rmal 935 DEX 
898 NOFLS CMP  H$A0 scaractire 936 BNE Si 
de controle ? 937 RTS 
899 BGE NOCTRL 938 AST 32 
900 AOC #40 joui =} no 939 MSG8TM JSR MSGAT 
rmal 940 DFB 0,23,0 
901 NOCTRL CMP  HSFF 3}’imprima oai JSR CLREOL 
nte n’aime pas celui-1d 942 * 
902 BNE PRINT 943 MSGOUT PLA 
903 LDA #*“ " 944 STA temp 
904 PRINT JSR COUT 945 PLA 
905 INY 946 STA  temp+i 
906 CPY #40 sfini lign 947 LDY #0 
e ? 948 BEQ MSGNXT 
907 BNE  HARD2 snon => co 949 *# 
ntinue 950 MSGAT PLA 
908 INC temp 951 STA temp 
909 LDA temp 952 PLA 
910 CMP #23 953 STA  temp+i 
911 BLT  HARDI 954 LOY #1 
912 JSR  CROUT 9s5 LDA ÇCtemp) ,Y 
913 LDA #0 95é STA CH _ 
914 JSR  OUTPORT 957 INY e 
915 LOX #82F 958 LDA <Ctemp),Y : 
916 HARD3 LDA 10B+17,X 959 JSR TABV | 
917 STA 0,X srestore | 960 MSGNXT INY A 
a page 2tro 961 LDA Ctemp),Y Et 
918 DEX 962 BEQ MSGEND Ft 
919 BPL  HARD3 963 JSR COUT “+ 
920 JMP  GETKEY 964 JMP MSGNXT : 
921 AST 32 965 MSGEND CLC . 
922 SOUND LDX #80 ?éé TYA @) 
923 Si TXA 967 ADC temp Le 
924 EOR #80 968 TAY ï 
925 TAY 969 LDA  temp+1 
926 S2 DEY 970 ADC HO 
927 BNE S2 971 PHA 
928 BIT SPKR 972 TYA 
929 TXA 973 PHA 
930 ADC #$80 974 RTS 
6 i : = 9 89 9 81E8- 91 29 C9 CA DO F4 60 84 
Récapitulation HER 2e ns LA . 2e “2 cs E 81F0- 24 A4 E3 4C 1E 84 20 4F 
80F8- F8 38 60 20 22 86 4C CC 81F9- 86 10 02 00 AS E3 4C DA 
8000- A2 FF 9A 86 1E 86 EC E8 8100- 80 C9 CA CB CD 09 D4 C7 8200- FD AA 30 04 A9 AO AA 60 
8008- 86 E3 86 EB 86 EE 20 2F 8108- C8 C2 D2 D? DB C4 D1 00 8208- A9 7E A2 7C 60 AS EC 49 
8010- F8 20 58 FC 20 45 86 07 8110- 6C BE AD BA 8D 88 ?5 84 8210- 80 85 EC 38 60 AS IE dA 
8018- 12 OF 13 13 09 05 12 13 8118- 45 91 40 81 S4 81 58 81 8218- C9 1F DO 02 A9 FF 85 1E 
8020- 20 13 OF 06 14 17 O1 12 8120- 0C 82 14 82 20 82 26 82 8220- 60 A9 00 AO 02 DO 0A A9 
8028- 05 A0 8C CD CF C2 C2 09 8128- 2C 82 36 82 68 82 48 85 8228- 00 A0 01 DO 04 AS EE A 
8030- AD C4 C9 D3 C8 8E AO 30 8130- AB 82 85 82 BE 82 6F 82 8230- 00 85 EE 84 EB 38 60 20 
8038- 32 2F 30 35 2F 38 34 00 8138- 73 92 CE 82 DE 92 D8 82 8238- 44 92 A9 01 80 OC O1 20 
8040- 20 4F 86 00 02 DO C9 03 8140- 77 82 8E 82 0C 83 38 AS 8240- 06 84 38 60 A9 02 20 58 
8048- D4 C5 A0 A4 AO AO AF D3 8148- E3 ES EF 4C 61 81 A4 E3 8248- F8 A0 07 AD 04 01 20 54 
8050- CS C3 D4 CS DS 02 A0 A4 8150- 88 98 4C él 81 A4 E3 C8 8250- 84 C9 24 80 EF 80 04 01 
8058- AO AO AF CF C3 D4 CS Da 8158- 98 4C 61 81 18 AS E3 65 8258- AO 13 AD 05 01 20 54 84 
8060- AO A4 A0 AO AF D6 CF CC 8160- EF 48 A9 00 20 74 81 68 8260- C9 10 80 F4 90 0S 01 38 
8068- AE A0 A4 AO A0 00 A0 27 81568- 85 E3 20 Fé 8t A9 80 20 8268- 60 20 44 82 A9 02 DO CC 
8070- A9 AD 99 80 04 99 80 0S 8170- 74 81 18 60 48 38 AS E3 8270- Cé FB 38 60 Eé F8 38 60 
8079- 99 50 06 88 10 F4 20 4F 8178- ES EE 85 0é A4 EB D0 13 8278- CE 05 01 10 OF A9 0F 80 
9080- 86 00 15 C2 DS Cé Cé CS 8180- AA 10 06 20 Si 83 4C 75 8280- 05 01 CE 04 O1 !0 08 A9 
8088- D2 AO A4 80 80 60 89 00 8188- 91 4A dA 4A An AS 06 29 8268- 22 80 04 01 4C 3A 82 AC 
8070- 20 4F 86 21 15 C4 D2 C9 8190- 07 10 09 dA dA 4A 4A AA 8290- 05 01 C8 CO 10 D0 0F AO 
8098- Dé CS A0 00 20 E3 03 894 8198- ÀS 06 29 OF 85 06 8A 18 8298- 00 AE 04 01 E8 EO 23 00 
8040- 06 85 07 A0 10 61 06 99 81A0- 69 04 85 09 20 58 F8 AS 82A0- 02 A2 00 8E 04 O1 8C 05 
8048- 00 01 88 10 F8 C8 6C 08 81A8- 06 OÀ 18 A4 EB FO 14 88 82A8- 01 4C 3A 82 AD 02 O1 49 
8080- 01 84 FA A9 40 8S FB 20 8180- FO 25 69 04 AB 68 20 01 8290- 03 80 02 01 38 60 20 2F 
8088- Si 83 A9 80 20 74 81 20 8188+ 92 91 28 C3 84 08 C8 Sa 9288- F8 20 58 FC 4C 65 FF A9 
80C0- 3C 86 AD BE 00 20 CC 80 81C0- 91 28 60 69 04 65 06 AB 92C0- 15 20 58 F8 AS F8 AO 08 
80C9- 90 FS 80 E8 20 55 8S A0 81C3- 68 20 01 82 91 29 C3 84 82C8- 20 54 84 85 F8 38 60 A4 
8000- 17 88 30 11 D9 01 81 00 8100- 08 C8 C8 8A 91 28 60 69 8200- E3 89 00 02 91 FA 4C 02 
8008- F8 98 0A A8 B? 19 81 48 9108- 05 AB 84 08 68 AA 10 0F 8208- 83 20 DF 82 4C 09 82 AS 
80E0- 89 18 91 48 60 C9 80 90 81E0- A2 02 81 28 29 7F 09 40 82E0- 09 20 58 FB A4 E3 81 FA 





Pom's n° 15 15 


82E9- 
82F0- 
92F9- 
93300- 
83089- 
8310- 
8318- 
9320- 
8328- 
9330- 
8338- 
9340- 
9348- 
8350- 
9359- 
8360- 
8369- 
8370- 
8378- 
9380- 
8388- 
8390- 
8399- 
83A0- 
8348- 
8380- 
9389- 
83C0- 
93C8- 
9300- 
9309- 
83E0- 
83E9- 
93F0- 
83F9- 
8400- 
8409- 
8410- 
8419-— 


24 A6 E8 E0 02 8420- 81 FA 09 00 02 F0 02 A2 85S9- 2C 10 CO C9 90 F0 Sé C9 


SS 3S 20 A1 95 84289- 3F 86 32 20 DA FO 4C 84 8560- 98 00 06 A2 FF 9A 4C 87 
20 54 84 A4 E3 8430- FE A9 AO C9 A0 890 12 24 8568- 90 60 A4 24 81 29 48 A9 
94 ED 20 S1 93 8438- EC 10 O0E 09 80 C9 EO 90 8570- A3 20 A1 85 80 F7 07 A9 
61 81 A9 04 9S 8440- 02 29 BF C9 A0 80 02 A9 8579- DF 20 SA 85 30 07 68 48 
85 23.20 S9. FC 8449- DF 84 35 A4 24 91 28 Eé 8590- 20 84 85 10 F2 68 91 29 
58 F8 AS FA 95 8450- 24 A4 35 60 9S 19 94 ED 9599- 9A 60 91 29 A2 32 86 06 
85 38 A2 10 Sé 8459- AS ED 85 24 A9 02 95 18 8590- AD 00 CS 30 07 CA 00 F9 
F8 A4 2F 81 3A 8460- A9 00 85 14 AS 19 20 DA 8599- Cé 06 00 F4 80 10 CO AA 
98 10 F8 20 53 8469- FD A4 ED 84 24 A4 24 81 85A40- 60 C9 EO0 890 OC A6 1E EO 
84 38 Cé 06 D0 8470- 28 85 07 20 55 9S 91 28 85A48- ?F 00 07 C9 CO 80 03 49 
CO 10 F8 20 58 8478- C9 89 F0 DC C9 80 F0 3F 8580- CO 60 25 1E 60 A2 2F 9S 
C9 90 F0 O6 D0 8480- C9 80 890 OC 20 22 86 AS 8599- 00 90 11 01 CA 10 F8 A2 
95 25 Ad E8 00 8488- 07 A4 24 91 28 4C 60 84 8S5C0- 16 86 22 86 23 A9 01 20 
E3 ES EE 10 06 8490- C9 8A 90 0 C9 Ci 90 EC 85C3- 9S FE A9 00 895 0é 20 C1 
80 9S EE AS EE 9499- C9 C7 80 E9 ES 06 29 OF 8500- F8 ÀS 28 95 26 AS 29 85 
25 20 58 F8 20 8440- 85 07 AS 1A OA OA OA DA 8509- 27 A9 16 20 589 F9 20 8E 
25 ÀS 25 C9 14 8448- 0S 07 85 14 Cé 18 DO 04 85E0- FD A0 00 81 26 C9 20 80 
02 20 S8 F8 AO 8480- AS 14 38 60 Eé 24 A4 24 85E3- 02 69 CO CF? 40 80 02 09 
07 20 86 93 A0 8488- A9 A0 91 28 4C 6D 84 AS eS5F0- 80 C9 AO 80 02 69 40 C? 
13 20 86 83 AS 84C0- 1B C9 02 DO 04 AS 19 85 95F93- FF 00 02 A9 AO 20 ED FO 
20 96 83 AD 0€ 84C8- 14 AS ED 85 24 AS 1A 20 8600- C8 CO 28 DO DE Eé 06 AS 
20 86 83 AD 02 8400- DA FD AS 1A 38 60 A9 00 8608- 06 C9 17 90 Ct 20 8E FO 
01 DO 02 09 80 8408- 90 03 01 AS F8 90 09 O1 8610- A9 00 20 95 FE A2 2F B0O 
F7 06 A9 15 20 84E€0- À0O 00 À9 01 20 99 03 90 8618- 11 01 95 00 CA 10 F8 4C 
F8 A0 08 84 24 94€9- 54 20 22 96 20 3C 896 CS 9620- S5 85 A2 80 84 49 90 A8 
A0 00 84 24 84 84F0- F2 F2 ES FS F2 AO E4 00 8628- 889 00 FD 2C 30 CO 84 69 
20 ED FD AS 06 84F8- AD OC 01 C9 02 FO 2E 20 8630- 80 A8 98 00 FO 2C 30 CO 
20 31 84 20 31 98500- 45 896 ES A0 EC ES E3 F4 8638- CA D0 E9 60 20 4F 86 00 
81 FA Aé ES F0 8509- F5 F2 ES 00 20 45 86 AC 8640- 17 00 20 9C FC 68 85 06 
09 20 33 84 20 8510- ÀO EE EF FS Fé ES EC A0 9648- 68 95 07 AG 00 F0 12 69 
ES 93 20 1E 84 8519- ES F3 F3 El E9 AO 8F 00 8650- 85 06 68 85 07 AO 01 81 
07 AS 07 C9 10 8520- 20 55 85 C9 09 FO AF C9 8659- 06 85 24 C9 81 06 20 58 
EF 4C 9C FC 49 8529- CF F0 ÀA8 38 60 20 45 84 8660- F9 C9 91 06 F0 06 20 ED 
20 31 94 A4 24 8530- A7 ES E3 F2 E9 Fd FS F2 86689- FD 4C 61 986 19 98 65 0é 
65 07 85 24 68 8539- €S 00 4C OC 85 A0 00 81 8670- A8 AS 07 69 00 48 98 48 
84 24 Eé 0é Eëé 8540- FA 99 00 02 E8 DO F8 38 8678- 60 

C9? 08 D0 8A 85 85489- 60 A0 00 89 00 02 91 FA 

4C 44 F9 A2 FF 8550- C9 00 F9 38 60 20 6A 9S 








Carte langage 400 Speech card 320 
Carte 128 k ram 1550 Carte horloge 500 
Carte 80 colonnes 700 Joystick 165 
Interface série 520 Ventilateur 280 
Super série 1000 Contrôleur de drive auto switch 13/16 370 
Interface parallèle 380 Microdrive 3” 1900 
Grappler + buffer 16 k 1350 Moniteur vert 12" 950 
Carte modem 2200 Disquettes 5” 1/4 SF./S.D. par 1 boîte 140/boite 
Carte Z 80 410 Disquettes 5” 1/4 S.F./D.D. par 1 boîte 175/boîte 
Wildcard 400 


Carte bleue et eurocard acceptées 
Vente par correspondance: nous consulter. 


BONJOUR LES PRIX!! 


NOS PRIX SONT F TTC 






AU-DESSUS, NOUS CONSULTER. 


Computer 3 





(métro Poissonnière) ouverture du lundi au samedi de 10 h à 19 h 30 
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Porm's n° 15 


L'Enseignement Assisté par Ordina 
teur (E A.O.) est à la mode actuelle- 
ment: Pom s n'échappe pas à la ten 


Les fleuves de France 


nom exact 


dance en vous présentant ici un 


programme d'éducation sur les fleu 
ves et rivières de France 


Le programme EAO FLEUVES est 
écrit entièrement en Basic. donc faci 
lement modifiable. et propose. à par- 
d'une 


tir 


carte de France au 


1 5 000 000 sur laquelle clignote le 
tracé dun fleuve. d'en fournir le 


Pas d'affolement ! Le programme ne 
vous demande que 10 noms avant 
de 5 arrèter et d'afficher votre score cer 
Pour les imbattables. il restera la pos- 
sibilité d'augmenter le nombre ‘ de 
feuves disponibles {60 actuellement) E 


Joseph Pino 


Le programme est très simple et ne 
necessite aucun commentaire particu- 
lier. Le plus pénible sera de rentrer 
toutes les BATA si vous n'avez pas la 
disquette de Poms 


Une petite colle avant de commen 
savez-vous où se treuvent le 
Blavet et la Truvère ? 





Programme E.A.0.Fleuves 


100 


110 


120 


130 
140 


150 


160 


170 


180 


500 


510 


520 


530 


540 


REM »®»® E.A.0. GEOGRAPHIE n° 
PRINT SPC 41);: 


INVERS 


HOME : INVERSE : 
NORMAL : PRINT SPC* 38);: 
E : PRINT “ ‘“;: NORMAL : PRINT ” 

E.A.0. GEOGRAPHIE CM2 FLEUV 
ES 53, INVERSE SPRINT 7 "ES N 
ORMAL : PRINT SPC( 38);: INVERSE 

: PRINT SPC{ 41): NORMAL : PRIN 


T 


CLAVIER = 49152:XBOSTB = 49168:TXTCL 


R = 49232:HISCR = 49237: VTAB 10: 
ATAB 1: PRINT “ Voulez vous que 
iques explications‘: VTAB 12: HTA 
B 18: PRINT ‘“< N >“: VTAB 12: HTA 
B 20: GET Vws 
IF WS < > “O* THEN 500 
VTAB 93: HTAB 1: PRINT “ Apprenez le 


nom des fleuves de FRANCE et de 
leurs affluents en vous anusant. 
PRINT SPC( 40): PRINT Vous t 
aperez au clavier le nom du cour 
8 d’eau qui clignote sur la carte 


PRINT : PRINT “* Je vous derande 
10 nons et Je vous donne les 10 
reponses.‘": PRINT 

PRINT “ Si vous repondez ‘’?’ 
CoRRe nom jJereviens en page HGR2 
pour la Carte.” 

PRINT : PRINT “Tapez ’C’ pour voir 
la carte conplete.'";: GOSUB 10000 
‘5 IF WS = “C“" THEN GOTO 1010 

REM se DEBUT °° 


RTAB 4: INVER 
NOMS ‘“*: NORMAL : H 
GOSUB 5000: GOS 
1 TO 93: GOSUB 20 
GOSUB 93000: GOSU 
NEXT 

GOSUB 9000 


HOME : 
PRINT “ 
GR2 : GOSUB 3000: 
UB 4000: FOR T = 
00: GOSUB 10000: 
B 5000: GOSUB 4000: 
GOSUB 2000: GOSUB 10000: 
: GOSUB 10000 
TEXT : HOME : VTAB 2: HTAB 3: PRINT 
“Vous avez bien repondu “;EX;" £ 
ois sur 10": PRINT : PRINT : NHTAB 
S: PRINT “Voulez vous recomrancs 


TEXT : VTAB 1: 


SE 


r (Oz=OUI) :";: GET WS: IF WS = "0 
“ THEN RUN 
VTAB 14: HTAB 15: PRINT “AU REVOIR 


Pom's n° 15 


1000 


1010 


1020 


2000 
2010 


2020 


2040 


3000 


3010 


3020 


3030 
4000 


4010 


4020 
5000 


5010 
Nbre 


S020 


5030 
5040 


S050 
S060 


6000 


6010 


ft“: PRINT : END 


REM see TOUTE LA CARTE n° 

HGR2 : GOSUB 3000: FOR N = 1 TO 59 
: GOSUB 8000: NEXT 

GET WS: RESTORE :N = O:N2 = O: FOR 
1 = O TO S:N(I) = O: NEXT : GOTO 


S00 
REM see CORRECTION ve 


TEXT : VTAB T + 2 + 1: HTAB 1: PRI 
NT T;:-HTAB 3°; PRINT “ ?7.:.."352 H 
TAB 3: INPUT ” “:RS: IF RS = “7" 
THEN GOSUB 93000: GOSUB 4000: GOT 
O 2010 

TEXT : VTAB T »° 2 + 1: HTAB 1: PRI 
NT T;: HTAB 4: PRINT AS; SPC( 20) 


:: IF RS = AS THEN VTABT « 2 + 


1: HTAB 19: INVERSE : PRINT ‘“ EXA 
CT “;: NORMAL : PRINT SPC( 10):: 
EX = EX + 1: GOTO 2040 
VTAB 1: HTAB 28: PRINT “Note : ‘:E 
X:"/"3T3: RETURN 


REM ve TRACER LA CARTE ose 


GOSUB 9000: HCOLOR= 3:X0 = 40:YO = 
- S: FOR 1 = 1 TO 9: READ X,Y: 


HPLOT X + XO,Y + YO 
READ X,Y: IF X AND Y THEN HPLOT 
TO X + XO,Y + YO: GOTO 3020 
NEXT : RETURN 
REM s»®s®* FAIRE CLIGNOTER ve 
GOSUB 8000: HCOLOR= 3: GOSUB 8000: 
IF PEEK (CL) > 127 THEN POKE K 
B,0: RETURN 
HCOLOR= O0: GOTO 4010 
REM #»®en TIRER AU SORT »» 
NQ = S9: REX 
Questions 
N = INT ( RND (1) + NQ) + 1:NCT) >= 
N 


IF T = © THEN 5060 


FOR S = O TO T - i: IF N = NS) TH 


EN S = T - 1: NEXT : GOTO 5020 

NEXT S 

VTAB 24: HTAB 10: PRINT SPC( 22): 
RETURN 

REM »°* QUESTIONS ve 


AS = "SOMME": HPLOT 165,24 TO 161,2 
7 TO 160,22 TO 150,24 TO 142,18: 


nd: ii 
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6020 


6030 


6040 


6050 


6060 


6070 


6080 


6090 


6100 


6110 


6120 


6130 


6140 


6150 


6160 


6170 


6180 


6130 


6200 


6210 


6220 


6230 


6240 


6250 


6260 


RETURN 

AS = "EURE": HPLOT 129,53 TO 138,57 
TO 140,53 TO 137,49 TO 138,46 TO 
134,40 TO 135,37: RETURN 

AS 2 “LOING‘": HPLOT 164,74 TO 159,7 
2 TO 157,67 TO 158,64 TO 156,61 T 
0 158,58: RETURN 

AS = "YONNE": HPLOT 175,85 TO 174,8 
4 TO 172,84 TO 169,77 TO 171,74 T 
0 169,67 TO 165,65 TO 165,60 TO 1 
63,57: RETURN 

AS = ‘“ARMANCON‘": HPLOT 184,82 TO 18 
2,78 TO 183,77 TO 174,66 TO 169,6 
7: RETURN 

AS = "“AUBE®*: HPLOT 133,72 TO 183,61 
TO 181,55 TO 174,52°"TO 171,53: R 
ETURN 

AS = “MARNE*: HPLOT 196,68 TO 195,6 


8 TO 195,64 TO 192,63 TO 191,52 T 
© 185,51 TO 179,43 TO 169,41 TO 1 
63,45 TO 162,44 TO 154,49 TO 152, 
47: RETURN 
AS = "OISE": HPLOT 177,22 TO 168,24 
TO 165,29 TO 161,31 TO 158,33 TO 
147,42: RETURN 
AS + "AISNE": HPLOT 192,45 TO 190,4 
S TO 185,33 TO 178,31 TO 173,35 T 
0 164,35 TO 158,33: RETURN 
AS = ‘“ORNE": HPLOT 120,51 TO 117,49 
TO 113,49 TO 110,44 TO 114,37: R 
ETURN 
AS = "RANCE": HPLOT 79,57 TO 83,58 
TO 87,57 TO 88,52: RETURN 
AS = "AULNE": HPLOT 65,53 TO 62,58 
TO 593,58 TO 54,56: RETURN 
AS = “BLAVET‘": HPLOT 68,55 TO 72,59 
TO 72,63 TO 67,69: RETURN 
AS = "VILAINE": HPLOT 103,60 TO 90, 
62 TO 88,71 TO 79,75: RETURN 
AS = “MAINE‘": HPLOT 108,75 TO 107,7 
8: RETURN 
AS = “MAYENNE®": HPLOT 114,54 TO 113 
55 TO 110,54 TO 107,56 TO 105,62 
TO 106,70 TO 108,75: RETURN 
AS = "SARTHE": HPLOT 124,52 TO 122, 
S4 TO 116,56 TO 116,60 TO 119,67 
TO 111,69 TO 108,75: RETURN 
AS = "LOIR": HPLOT 133,58 TO 136,60 
TO 134,68 TO 130,70 TO 122,72 TO 
118,72 TO 108,75: RETURN 
AS = “NIEVRE®": HPLOT 165,80 TO 162, 
88: RETURN 
AS = ‘“ARROUX‘": HPLOT 182,86 TO 178, 
93 TO 176,100: RETURN 
AS = "ALLIER": HPLOT 171.135 TO 167 
128 TO 165,115 TO 168,109 TO 166 
937 TO 161,93 TO 162,88: RETURN 
AS = "CHER": HPLOT 153,112 TO 155,1 
07 TO 155,97 TO 150,92 TO 149,86 
TO 145,82 TO 125,79: RETURN 
AS = “INDRE‘": HPLOT 150,100 TO 146, 
393 TO 144,94 TO 142,92 TO 135,90 
TO 129,83 TO 120,83 TO 119,81: RE 
TURN 
AS = "VIENNE": HPLOT 147,117 TO 143 
116 TO 136,112 TO 134,114 TO 126 
112 TO 126,100 TO 124,96 TO 124, 
87 TO 118,84 TO 116,81: RETURN 
AS = "CREUSE": HPLOT 148,113 TO 148 
109 TO 140,101 TO 140,993 TO 137, 
397 TO 131,95 TO 127,88 TO 124,87: 
RETURN 


AS = “SEVRE NANTAISE": HPLOT 103,96 


RS 
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6270 


6280 


6290 


6300 


6310 


6320 


6330 


6340 


6350 


6360 


6370 


6380 


6330 


6400 


6410 


6420 


6430 


6440 


6450 


6460 


6470 


6480 


TO 102,93 TO 94,84 TO 93,82: RET 
URN 

AS = “CHARENTE®": HPLOT 
19,106 TO 117,116 TO 
05,116 TO 104,112 TO 
RN 

AS = “DORDOGNE‘": HPLOT 
54,119 TO 153,122 TO 
28,135 TO 110,135 TO 
URN 

AS = “VEZERE": HPLOT 147,120 TO 142 
120 TO 137,124 TO 137,129 TO 134 
129 TO 128,135: RETURN 

AS = "ISLE": HPLOT 134,117 TO 130,1 
20 TO 127,128 TO 124,128 TO 121,1 
31 TO 111,131 TO 110,135: RETURN 

AS = "LOT": HPLOT 172,142 TO 163,14 
S TO 155,140 TO 142,144 TO 130,14 
3 TO 128,145 TO 123,144 TO 119,14 
7: RETURN 

AS = "“TRUYERE®": 
7,133 TO 165,134 
5,140: RETURN 

AS = “TARN‘": HPLOT 
47 TO 162,152 TO 
56 TO 140,158 TO 
52: RETURN 

AS = "AVEYRON": HPLOT 162,147 
8,145 TO 154,147 TO 146,146 
5,151 TO 135,152: RETURN 

A$ = “ARIEGE": HPLOT 141,186 TO 143 
185 TO 142,182 TO 133,180 TO 139 
171 TO 136,169 TO 136,165: RETUR 
N 

AS = "SAVE": HPLOT 122,173 TO 127,1 
69 TO 134,159: RETURN 

AS = "GERS": HPLOT 120,172 TO 123,1 
67 TO 124,158 TO 123,155 TO 125,1 
S0: RETURN 

AS = “BAISE“*: HPLOT 118,176 TO 117, 
172 TO 120,168 TO 119,148: RETURN 


TO 1 
TO 1 
RETU 


125,115 
114,118 
38,111: 


TO 1 
TO 1 
RET 


159,119 
139,135 
105,130: 


TO 16 
TO 15 


HPLOT 170,137 
TO 158,135 


173,145 TO 
157,154 TO 
135,152 TO 


165,1 
145,1 
130,1 


TO 15 
TO 14 


AS = “ADOUR‘": HPLOT 115,178 TO 115, 
175 TO 114,172 TO 113,163 TO 108, 
159 TO 95,160 TO 94,164 TO 930,165 

TO 89,164: RETURN 

AS = “AUDE”: HPLOT 147,185 TO 151,1 
72 TO 165,173: RETURN 

AS = “HERAULT®: HPLOT 170,151 TO 17 
3,156 TO 169,165 TO 169,170: RETU 
RN 

AS = "GARD": HPLOT 173,148 TO 178,1 
49 TO 181,155 TO 187,155 TO 188,1 
S7: RETURN 

AS = ARDECHE‘: 
4,141 TO 182,145 TO 188,149: 
RN 

AS = "SAONE": HPLOT 207,62 TO 205,6 
S TO 205,72 TO 197,80 TO 196,85 T 
0 191,89 TO 189,92 TO 191,97 TO 1 
88,110 TO 190,112 TO 190,114: RET 
URN 

AS = "DOUBS": HPLOT 210,91 TO 220,7 
8 TO 218,78 TO 218,75 TO 205,84 T 
0 197,89 TO 191,89: RETURN 

AS = "AIN": HPLOT 208,92 TO 203,93 
TO 196,113: RETURN 

AS = "ISERE": HPLOT 221,120 TO 218, 
117 TO 215,118 TO 214,115 TO 211, 
118 TO 207,122 TO 204,126 TO 202, 
124 TO 194,131 TO 191,131: RETURN 

AS = "ARC": HPLOT 223,122 TO 214,12 
S TO 212,123 TO 211,118: RETURN 


HPLOT 179,139 TO 18 
RETU 
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6490 


6500 


6510 


6520 


6530 


6540 


6550 


6560 


6570 


6580 


65930 


7000 


7010 


7020 


7030 


7040 


Si vous êtes dans la @ et oubliez d'acheter Pom'a, 


AS = “*DRAC‘": HPLOT 213,136 TO 211,1 
38 TO 203,133 TO 204,126: RETURN 
AS = “DROME“"*: HPLOT 204,142 TO 200, 

140 TO 199,136 TO 195,138 TO 190, 
137: RETURN 
AS = “DURANCE‘": HPLOT 218,132 TO 21 
7,134 TO 217,138 TO 213,143 TO 21 
0,142 TO 208,145 TO 210,150 TO 20 
7,159 TO 201,161 TO 190,155: RETU 
RN 
AS = “VERDON‘*: HPLOT 218,147 TO 218 
156 TO 210,159 TO 207,159: RETUR 
N 
AS = "VAR": HPLOT 221,147 TO 222,15 
4 TO 228,154 TO 228,162: RETURN 
AS = "RHIN": HPLOT 240,72 TO 227,72 
TO 227,60 TO 230,48 TO 235,40 TO 
238,33 TO 237,22 TO 233,17 TO 22 
8,193 TO 225,12 TO 222,10 TO 217,4 
TO 216,0: RETURN 
AS = “ILL‘"®: HPLOT 225,73 TO 224,72 
TO 225,58 TO 227,56 TO 228,50 TO 
230,48: RETURN 
AS = “MOSELLE": HPLOT 218,66 TO 216 
,67 TO 203,50 TO 206,47 TO 205,44 
TO 206,34 TO 209,31 TO 215,24 TO 
220,20 TO 225,12: RETURN 
AS = “MEURTHE": HPLOT 218,59 TO 215 
58 TO 207,50 TO 206,47: RETURN 
A$ = “MEUSE“: HPLOT 200,65 TO 199,6 
4 TO 200,50 TO 192,35 TO 192,32 T 
0 189,27 TO 187,28 TO 184,23 TO 1 
86,17 TO 187,12 TO 197,6 TO 199,0 
: RETURN 
AS = “ESCAUT": HPLOT 165,22 TO 163, 
22 TO 165,15 TO 168,15 TO 168,12 
TO 167,93 TO 165,6 TO 173,0: RETUR 
N 
REM +es CARTE DE FRANCE ##e 


DATA 115,5,100,10,100,20,102,23,99 
,22,98,25,93,28,86,29,80,33,78,37 
,83,38,74,42,61,40,59,36,60,34,59 
,32,54,34,50,32,51,39,54,43,54,54 
,57,56,51,57,51,54,49,54,48,57,46 
,55,41,54,37,57,33,50,26,50,24,53 
,18,52 

DATA 7,54,7,58,13,58,14,61,8,61,13 
“23:14:08 ,/,69:11%67,12:69011; 71; 
14,72,15,69,25,75,27,74,30,75,28, 
76,29,78,32,78,32,76,36,78,33,79, 
34,81,39,80,38,86,41,86,44,84,49, 
87,44,86,43,89,46,90,43,95,47,103 
,57,108 

DATA S8,116,55,122,60,124,63,128,6 
5,135,61,128,57,124,54,143,57,141 
,58,144,56,145,55,144,53,146,49,1 
69,46,172,44,172,51,180,63,185,69 
,185,71,187,82,187,82,184,100,190 
,100,193,105,195,117,195,120,193, 
125.195 


DATA 125,192,123,191,123,180,125S,1 
78,129,175,130,176,139,169,141,17 


envoyez-nous une E4 et abonnez-vous sans 


Pom’s n° 15 





7050 


7060 


7070 


7080 


7090 


7100 


8000 


8010 


8020 


8030 
8040 


8100 
3000 


3010 


10000 VTAB 24: 


Inutile de vous #- ©, les autres numéros de Pom's 


1,145,172,147,172,147,174,153,173 
1535,170,159,171,155,173,161,174, 
160,176,168,180,177,178,178,176,1 
80,176,181,171,183,172,188,167,18 
3,164 

DATA 191,165,195,162,195,154,185S,1 
53,182,147,184,140,179,134,185S,13 
0,185,125,180,118,182,115,180,104 
175,104,169,109,0,0,180,104,176, 
101,171,104,169,109,169,101,180,8 
8,182,83,181,80,185,80,187,77,188 
,75,192,55S 

DATA 197,45,195,45,188,44,185,42,1 
81,44,176,41,174,43,171,36,169,36 
164,36,159,34,156,36,147,29,146, 
22,141,27,137,27,137,20,135S,17,13 
1,19,130,16,128,14,127,14,125S,15S, 
123,14,122,9,119,10,116,7,115,5,0 
0 

DATA 147,82,144,72,137,67,135,60,1 
31,58,123,62,118,63,111,56,112,52 
,107,48,102,49,95,42,83,38,0,0 

DATA 141,140,139,141,136,139,136,1 
32,138,132,141,124,137,115,136,10 
S,122,93,121,88,119,86,120,83,116 
78,104,72,94,82,85,84,79,86,76,8 
6,70,82,67,83,65,84,58,83,53,87,4 
3,87,0,0 

DATA 89,188,86,189,83,180,86,179,9 
2,176,96,170,94,164,90,157,85,15S5S 
79,153,79,152,79,150,74,146,70,1 
46,65,13S,0,0,200,101,194,106,191 
106,183,110,180,104,0,0,169,109, 
167,110,163,122,154,118,156,118,1 
SO 

DATA 119,150,125,149,127,151,136,1 
S1,138,150,142,148,148,148,154,15S 
2,159,150,160,148,162,148,16S,144 
168,141,171,0,0,144,168,145,172, 
0,0,148,165,153,173,0,0 

REM ##s AIGUILLAGE => 


IF N > 40 THEN N2 = N - 40: GOTO 8 
040 

ON N GOSUB 6010,6020,6030,6040,60S 
0,6060,6070,6080,6090,6100,6110,6 
120,6130,6140,6150,6160,6170,6180 
,6190,6200,6210,6220,6230,6240,62 
50,6260,6270,6280,6290,6300,6310, 
6320,6330,6340,6350,6360,6370,638 
0,6390,6400 

RETURN 

ON N2 GOSUB 6410,6420,6430,6440,64 
S0,6460,6470,6480,6490,6500,6510, 
6520,6530,6540,6550,6560,6570,658 
0,6590 

RETURN 

REM + VOIR HGR2 SANS EFFACER +» 


POKE TX,0: POKE HI,0: RETURN 
HTAB 10: PRINT ‘Tapez un 
e touche :"“;: GET WS&: RETURN 


sont encore disponibles avec leurs disquettes ! 
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IMPRESSIONS SUR _MOUSEPAINT 
MousePaint est avänt tout un loaiciet de 
realisation de dessins, fonctionnant sous 


controle de la souris Fipple 





Un crayon permet de faire du dessin à 
main levee (si on peut dire … là main est 
posee sur la souris !) 


AT 


ce n'est pas toujours tres simple, mais 
avec un peu d'habitude … 


Et en cas d'erreur. il 4 à là resseurce 


de ia gomme 


On peut egalement travailler par taches, 
avec ta brosse. 


nJ 4 


On peut aussi vaporiser des petits nuages 


7 


Bien sur on peut ecrire: en dispsse 
de plusieurs types de caracteres 
Mais pas de caracteres accentues 
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Bes formes predefinies permettent de 
tracer des fiqures geometriques, vides 
ou pleines, avec decors varies. Mais on 
ne peut pas remplir apres Ceup 









* o 
RS ES 


On peut attssi depiacer, dupiquer, faire 
des symetries, … 





Il existe enfin des forictions permettant 
de travailler au niveau du paint, ou de 
controler la pesition du dessin dans ia 
pade, d'utiliser une arille peur certains 
traces, ., et bien entendu des fonctions 
de gestion de disque. 


Une lacune: 

l'absence d'une fonction 
“Catalogue” : on ne sait 
jamais ce qu'il y a sur 

un disque 

Les fonction impression EXIGE l'imprmante 


Image iriter. Pour une autre imprimante, 
il faut transiter par je disque 


5: a YANIE: 
L'EÉÉÉSENME 


Un produit bien agreable 
malgre quelques lacunes. 










La Version etudiee fonctionne sur les 
modeles II, II+, -e et //c 
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Gestion de fichiers par RWTS et 


Pom's a déjà consacré plusieurs arti- 
cles aux méthodes de gestion de fi- 
chier en DOS 3 3 et. après une lon- 
que pose dans cette série, nous vous 
en proposons un autre, un peu plus 
complexe dans sa mise en oeuvre 
mais qui devrait vous fournir. du 
moins l'espérons-nous, un système 
relativement rapide et souple pour 
gérer de gros fichiers de données sur 
disquettes 140K 


Principes généraux 


Il est de notoriété publique que le 
DOS se charge en mémoire à partir 
dune disquette lorsque l'on met 
l'Apple sous tension ou que l'on 
‘boote’ à chaud. par PR#6 par 
exemple 

L'implantation du DOS sur une dis- 
quette résulte. de manière générale. 
de son initialisation par la commande 
INIT. A l'issue de cette opération. les 
pistes O0. 1 et 2 de la disquette 
contiennent le DOS et ne sont plus 
accessibles pour la sauvegarde de fi- 
chiers ou programmes 


En fait. cette présence du DOS sur 
toutes les disquettes consttue un 
luxe inutile. Plus particulièrement. en 
matière de gestion de fichiers. on 
peut utiliser fréquemment une dis- 
quette ‘Programmes”. qui se place 
dans le lecteur 1 et assure également 
le “boot du système. et une dis- 
quette réservée plus spécialement à 
la sauvegarde des fichiers, placée 
dans le lecteur 2 Sur cette seconde 
disquette, le DOS ne représente 
qu'une perte de place pour le sto- 
ckage des informations 

De même. si l'on n'emploie qu'une 
seule disquette pour programmes et 
fichiers et si l'on ne dispose que d'un 
seul lecteur, il est toujours possible 
de charger le DOS en mémoire à 
partir d'une autre disquette, rempla- 
cée immédiatement après par celle 
nécessaire aux traitements 


Il serait donc possible d'exploiter les 
3 pistes protégées du DOS pour v 
stocker des informations utiles à la 
geston de fichiers : nous vous propo- 
sons d'y placer la table de référence 
des enregistrements d'un gros fichier 
de données Notons de suite que 
ceci ne perturbera pas le fonctionne- 
ment du DOS pour le maniement de 
programmes ou fichiers sur la méme 
disquette, puisque les pistes 0. 1 et 2 
sont de toute façon considérées 
comme occupées à l'issue de INIT; 
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on ne risque donc pas de les ‘écra- 
ser” en cours de traitement. Par un 
POKE approprié à l'adresse 44723 
(voir Poms 11}. on peut même pro- 
téger ainsi plus de trois pistes pour la 
sauvegarde d'une table de référence. 
et nous y reviendrons ultérieurement 


Organisation de la table 
de référence 


Nous stockerons dans cette table 
trois types d'informations 


e La clé d'accès. identifiant chaque 
enregistrement du fichier de don- 
nées et permettant d'y accéder di- 
rectement (le nom d'un client. un 
numéro de dossier..). La longueur 
de cette clé sera fixe, bornée ou 
quelconque. au choix du program- 
meur, De plus, les “homonymes” 
(plusieurs clés identiques) seront 
acceptés. 

e Des informations ‘’annexes”, sous 
forme d'un certain nombre d'oc- 
tets pouvant servir de critères pour 
des recherches rapides dans la 
table (numéro de département. 
codification de situation de fa- 
mille.….). 

e L'adresse de l'enregistrement cor- 
respondant à la clé dans le fichier 
de données Ce dernier est un fi- 
chier à accès direct DOS 3.3 stan- 
dard Dans la table de référence. 
cette adresse occupera deux octets 
(ceci autorise des adresses de 0 à 
65535, ce qui est plus que suffi- 
sant}. 


Un élément de la table de référence 
se présentera donc de la façon sui- 
vante : 


— Longueur totale “clé + informa- 
tions annexes” : 1 octet 

— Longueur de la clé seule : 1 octet 

— Clé d'accès : N1 octets 

— Informations annexes : N2 octets 

— Adresse de l'enregistrement cor- 
respondant : 2 octets 


Gestion de la table de référence 


Pour utiliser les pistes du DOS. il faut 
y accéder directement par la célèbre 
routne RWTS, qui permet de lire ou 
d'écrire un secteur quelconque de la 
disquette, soit 256 octets. 

La table de référence sera donc dé- 
coupée en un certain nombre de sec- 
teurs, 48 (3+16) au max mum si l'on 
utilise les trois pistes du DOS. numé- 
rotés de O0 à 47. Nous appelerons 
NN le numéro du dernier secteur de 
clé exploitable. 


DOS 3.3 


Gérard Michel 


L'appel à RWTS se fera à partr du 
programme Applesoft de traitement, 
tandis qu'une petite routine en as- 
sembleur s’occupera de la recherche 
d'une clé donnée à l'intérieur d'un 
secteur de clés chargé en mémoire 
dans un buffer. 


Une telle recherche est toujours plus 
rapide lorsque les clés sur lesquelles 
elle porte sont classées dans un ordre 
quelconque, en l'occurrence dans 
l'ordre des codes ASCII des caractè- 
res composant la clé. En revanche. 
les opérations de classement sont gé- 
néralement longues en regard des 
délais d'attente acceptables dans le 
cours de l'exploitation normale du fi- 
chier et il est donc préférable de les 
séparer de cette dernière. 

On peut ainsi se trouver, à un instant 
donné, avec deux types de secteurs 
de clés : 


e Des secteurs de clés classées. dans 
lesquels la recherche sera plus ra- 
pide. Nous appelerons NZ le nu- 
méro du dernier secteur de clés 
classées, avec NZ compris entre 0 
et NN. 

e Des secteurs de clés ‘en vrac, 
placés à la suite des premiers. 
dans lesquels les nouvelles clés 
ont été stockées simplement dans 
l'ordre chronologique de leur en- 
trée en machine La recherche 
sera évidemment plus lente sur 
ces secteurs. mais on évite ainsi 
d'imposer à l'utilisateur un délai 
de classement à chaque nouvel 
enregistrement La variable TT 
contiendra le numéro du dernier 
secteur de ‘vrac”: TT est donc 
comptis entre NZ+1 et NN Dès 
que TT atteint NN+1. ta capacité 
de stockage des clés est saturée. 


Ün petit programme, indépendant 
des programmes de traitement pro- 
prement dits. permettra à l'utilisateur 
de reclasser les clés en vrac à l'inté- 
rieur des clés classées et de reconsti- 
tuer une table de référence compo- 
sée uniquement de secteurs de clés 
classées. Cette opération sera par 
conséquent réalisée sur l'initiative de 
l'utilisateur, avant de procéder à un 
listage du fichier, par exemple. ou 
dès que les temps de recherche sont 
trop détériorés par le nombre de clés 
en vrac” à explorer 


En ce qui concerne les clés classées. 
et dans la mesure où la recherche 
porte sur un secteur à la fois. il est 
bon de savoir si possible quel est 
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AT 
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celui qu'il faut charger de préférence 
en mémoire, c'est-à-dire celui dans 
lequel on aurait une chance de trou- 
ver la clé Gui nous intéresse Pour ce 
faire, on conservera dans un tableau 
NS(NN) la dernière clé de chaque 
secteur classé : N$(0) contiendra DU- 
PONT si DUPONT est la dernière clé 
stockée dans le secteur D, et amnsi de 
suite. Si l'on cherche une clé quel- 
conque XXXXXX, on lira en mé- 
moire le dernier secteur S pour le- 
quel XXXXXX <= N$(S) Si aucun 
secteur classé ne répond à cette 
condition. on cherchera alors en sé- 
quence dans les secteurs de vrac. et 
de même si l'on ne trouve pas dans 
le secteur classé potentiel S 


Fichiers manipulés 


Notre système de table de référence 
ne peut gérer qu'un seul fichier de 
données par disquette. Par contre, 
d'autres fichiers de toutes sortes peu- 
vent être utilisés conjointement en 
DOS 3.3 standard. En particulier. 
deux petits fichiers annexes sont né- 
cessaires à la gestion du système 


e Un fichier contenant les paramë- 
tres de la table de référence : der- 
nier secteur classé (NZ). dernier 
secteur ‘en vrac (TT). dernière 
adresse attribuée à un enregistre- 
ment (NF). premier octet libre 
dans le secteur de vrac en cours 
(OO), statut de la table vis-à-vis 
du classement (IC. qui vaut G si 
tout est classé. 1 si on a à la fois 
du vrac et du classé, 2 si nen n'est 
classé) Ce fichier est baptisé FP 

e Un fichier contenant les adresses 
éventuellement libérées par des 
annulations d'enregistrements, et 
baptisé PL 


Analyse du programme 
de démonstration 


Il s'agit d'un programme classique de 
gestion de fichier. permettant la créa- 
tion, la modification. la consultation. 
l'annulaton et la liste d'enregistre- 
ments Son étude nous aidera à 
comprendre la mise en oeuvre du 
système 


Principales variables 


e AR: adresse de début de la rou- 
tine en langage-machme de re- 
cherche dans un secteur 

e ADR: adresse de début de la 
zone où la routine-machine sto- 
ckera les adresses des enregistre- 
ments dont la clé correspond à 
celle que l’on cherche 

e CLE : adresse du début de la zone 
où le programme POKEra la clé 
recherchée 

e ASYO: adresse du début de la 
zone où la routine-machine sto- 
ckera les positions dans le secteur 
des clés correspondant à celle que 


l'on cherche 

e BU: adresse du début du buffer 
en mémoire utilisé par RWTS 
pour lire ou écnre un secteur 

e LC adresse où sera POKée la 
longueur de la clé cherchée. 

e RES : résultat de la recherche. soit 
@ sion na pas trouvé. et le nom- 
bre de clés égales à celle cherchée 
dans le cas contraire. 

e ABL : indicateur de fin de secteur, 
positionné par la routine-machine 
Si on trouve effectivement une clé 
(au moins) correcte, mais que 
celle-ci est également la dernière 
d'un secteur. la routine mettra 1 
dans adresse correspondant à 
ABL En effet. dans les clés clas- 
sées. rien n'interdit que l'on ait un 
MARTIN. par exemple, à la fin du 
secteur 3, mais aussi d'autres 
MARTIN au début du secteur 4 
Si ABL vaut !. il faudra donc exa- 
miner le secteur suivant pour véri- 
fier s'il ny à pas d'autres clés pos- 
sibles 

e 10: adresse de début de la table 
IOB pour RWTS 

e AA: longueur des informations 
annexes qui seront également sto- 
ckées dans la table 

e DT: adresse de début de la table 
DCB pour RWTS 

e RWTS: adresse de la routine 
d'appel de RWTS (voir manuel du 
DOS 33 pour l'utilisation de 
RWTS) 

e N°: numéro du secteur courant sur 
lequel on lit ou écrit 

e C: commande pour RWTS. soit 1 
pour une lecture et 2 pour écri- 
ture 


Fonctionnement du programme 


Le programme mampule un fichier 
de données DON à accès direct. 
dont la longueur des enregistrements 
est fixée à 100 [Il commence par une 
phase d'nitialisation, suivie de sous- 
routines, et l'essentiel des traitements 
réalisés porte sur la gestion de la 
table de référence et du fichier. Fi- 
chiers et programmes sont en outre 
placés sur là même disquette. qui ne 
sera donc exploitable que si le DOS 
a déjà été chargé à partir d'une autre 
disquette 


— Lignes 2 à 13 : initialisation On 
définit la valeur des différentes adres- 
ses qui assurent le passage de para- 
mètres entre le programme Applesoft 
et la routine-machine de recherche 
de clé (ADR. CLE, ASY0O, LC...) On 
fixe également l'adresse d'implanta- 
tion de la routine (AR). Cette der- 
nière est relogeable à ceci près 
qu'elle utilise des tableaux (ADR. 
CLE et ASYO) dont on veut pouvoir 
faire Varier la taille et l'adresse de 
début en fonction des besoins, mais 
dont les adresses ont été données de 
manière absolue à l’assemblage de la 
routine. C'est pourquoi la ligne 13 


14-2649 1) 


remet dans le code machine. aux en- 
droits où elles doivent apparaître, les 
adresses réelles correspondant à 
ADR. CLE et ASYO 

Dans notre exemple. les trois ta- 
bleaux sont à la suite les uns des 
autres à partir de l'adresse $9100, et 
l'on suppose qu'il n'y aura pas plus 
de 8 homonymes par secteur (ADR 
occupe 16 octets, soit 2 par adresse 
retenue. et ASY8 en prend 8). 


A la ligne 4. on fixe l'adresse de la 
table IOB et on la constitue en reco- 
piant celle du DOS, qui débute en 
47080 Pour que la table soit cohé- 
rente. il faut donc que ie dernier lec- 
teur utilisé juste avant cette copie soit 
bien celui dans lequel se trouve la 
disquette du fichier. Ensuite, on indi- 
que dans la table IOB l'adresse de 
notre table DCB et on POKE dans 
cette dernière les valeurs attendues 
pour nos lecteurs 140K. 

En ligne 5. on implante à l'adresse 
768 la routine d'appel à RWTS. Les 
valeurs 148 et O qui suivent respecti- 
vement 169 (code de LDA) et 160 
{code de LDY) correspondent au 
poids fort et au poids faible de 
l'adresse de début de la table 10B 
{IO0). Dans notre exemple, le poids 
fort vaut 594, soit 148 en décimal, et 
le poids faible vaut O0. Vous auriez 
donc à modifier ces deux valeurs si 
vous vouliez modifier l'adresse de la 
table IOB. 


Il est possible d'employer toute cette 
artie d'initialisation en modifiant 
‘implantation selon les besoins. Il 
suffit pour cela de donner les valeurs 
qui vous conviennent aux vañables 
concernées . AR. ADR. CLE. ASY0O. 
BU, IO et les deux octets correspon- 
dant à l'adresse [O dans les DATA 
de la routine d'appel à RWTS. 


— Lignes 15 et 20: lecture des 
deux fichiers annexes et branche- 
ment au programme de traitement 
qui débute à la ligne 100. 


— Lignes 50 et 60 : recherche du 
secteur classé dans lequel la clé cher- 
chée pourrait éventuellement se trou- 
ver. Si la clé est supérieure à toutes 
celles déjà classées. N correspond au 
premier secteur de vrac. soit NZ+1 


— Lignes 65 et 70 : conversion du 
numéro de secteur en adresse physi- 
que sur disquette (piste P / secteur 
S), puis lecture du secteur en mé- 
moire. 


— Lignes 80 à 86: sous-pro- 
gramme d'appel à la routine-machine 
de recherche et exploitation de ses 
résultats. Lecture du secteur N 
{(GOSUB 65) et appel par CALL AR. 
En retour, on a le résultat de la re- 
cherche (R} et la valeur de l'indica- 
teur de fin de secteur (BL = 
PEEK(ABL)). Si ZC$, qui contient la 
clé cherchée, est égal à la dernière 


Pom's n° 15 





clé du secteur N$(N) et que la re- 
cherche donne malgré cela un résul- 
tat nul (R=0). c'est que cette clé 
N$(N) a été annulée depuis le der- 
nier reclassement. Dans la mesure où 
une clé identique pourrait se trouver 
au début du secteur classé suivant. 
on met R à 1 afin d'aller examiner 
celui-ci (voir plus loin les lignes 360 à 
500) 

En ligne 82. on élimine les cas où 
B£ pourrait donner une indication 
fausse. c'est-à-dire si l'on a examiné 
le dernier secteur classé alors que 
tout est classé, ou si l'on a examiné 
le dernier secteur de vrac s'il y en a 
(IC>0). 

Les lignes 83 et 84 correspondent à 
la lecture et à l'affichage {GOSUB 
90) de tous les enregistrements dont 
la clé est égale à celle que l'on cher- 
che. À chaque affichage, on de- 
mande à l'utilisateur "EST-CE LE 
BON ?"; une réponse  affirmative 
confirme que l'on a bel et bien 
trouvé, ce que O=1 indiquera par la 
suite. 

Si aucun enregistrement n'est le bon, 
on prend en compte, comme en 80, 
l'éventualité d'une annulation de la 
dernière clé du secteur (ligne 85). A 
l'issue de la ligne 86, R sera nul ou 
non selon que BL vaudra O ou non 
(BL > O signifie toujours qu'un ho- 
monyme peut encore se trouver au 
début du secteur suivant celui que 
l'on vient d'examiner} 


— Ligne 90 : lecture et affichage 
d'un enregistrement du fichier DON 
d'adresse À. Ligne 95: pose une 
question à réponse ‘O” ou ”’N”. 
Ligne 98: écriture d'un enregistre- 
ment du fichier DON d'adresse A. 


— Lignes 120 à 130 : introduction 
de la clé au clavier, puis POKESs aux 
adresses nécessaires pour la routine- 
machine. La longueur de la clé est 
quelconque, à la seule réserve près 
qu’elle ne doit pas excéder les capa- 
cités du système de gestion des clés. 


— Ligne 200 : NZ=-1 si on est à 
la toute première utilisation du pro- 
gramme (voir plus loin l'initialisation 
d'une disquette fichier). Inutile donc 
de chercher dans ce cas, et le pre- 
mier secteur de vrac à constituer est 
le secteur O de la piste O. 


— Lignes 300 à 500 : appel et ex- 
ploitation de la sous-routine 80-86 
en fonction du statut du système vis- 
à-vis du classement (IC). Aux numé- 
ros de lignes près, cette partie pour- 
rait être utilisée sans changements 
dans tout autre programme. 


— Lignes 700 à 740 : mise en 
place des éléments d'une nouvelle 
clé dans le secteur de vrac courant. 
Les trois octets d'informations an- 
nexes sont donnés par les trois der- 
niers éléments du tableau ZY$. 
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On calcule d'abord la longueur totale 
LT. Chaque clé occupe LT octets, 
plus 2 pour les deux longueurs sto- 
ckées, plus 2 pour l'adresse de l'en- 
registrement: elle sera en outre suivie 
dun © lors de son entrée dans le 
secteur, ahn de marquer la fin des 
données utiles pour ce dernier Il faut 
donc LT+5 octets libres dans le sec- 
teur courant pour y mettre notre 
nouvelle clé. ce que l'on vérifie tout 
d'abord. Si tel n'est pas le cas. il faut 
ouvrir” un nouveau secteur de vrac. 
dans la mesure où le nombre de 
pistes disponibles le permet (lignes 
710 et 715). 

On peut ensuite POKETr les octets et 
mettre à jour la position du premier 
octet libre dans le secteur (OO). Par 
précaution, le secteur ainsi modifié 
est aussitét recopié sur disquette 
(C=2 : GOSUB 65) 


— Lignes 820 et 840 : modification 
dans la table de référence. SB donne 
la position dans le buffer du premier 
caractère de la clé sélectionnée, posi- 
tion qui a été indiquée par la routine- 
machine. On remplace donc les in- 
formations annexes éventuellement 
modifiées avant de ré-écrire le sec- 
teur. 


— Ligne 980 : pour marquer l'an- 
nulation d'une clé. on remplace son 
premier caractère par un 0. ce qui 
garantit qu'elle ne sera pas retrouvée 
par là routine de recherche Par 
contre, sa dispatition effective de la 
table ne sera réalisée qu'à l'issue du 
reclassement. 


— Lignes 2000 à 2999 : fin et sor- 
tie du programme. 


— Lignes 3000 à 3070 : liste et affi- 
chage des enregistrements dont les 
clés sont actuellement classées. On lit 
successivement les secteurs depuis 
N=0 jusqu'à N=NZ (sauf si l'utilisa- 
teur arrête avant}. Dans chacun de 
ces secteurs, on récupère les don- 
nées de chaque clé non annulée 
(PEEK (BUÜ+SB) <> 0), on lit l'en- 
registrement correspondant et on l’af- 
fiche à l'écran. 


Programmes annexes 


Initialisation d’une 
disquette ”’fichier” 


Vous pouvez utiliser un programme 
comparable au programme INIT listé 
ci-après, afin de donner aux paramè- 
tres du système les valeurs correctes 
pour une toute première utilisation. 

C'est dans un tel programme que 
vous pouvez par ailleurs réserver plus 
de 3 pistes pour votre table de réfé- 
rence. Pour disposer de N pistes, 
faites un “POKE 44723, 4»N° avant 
la commande INT, puis ‘’POKE 
44723, 12” juste après pour rétablir 
le standard du DOS. Pour N pistes, 


le dernier secteur de clés accessible 
sera NN = 16+N — 1. 


Classement des clés 


L'essentiel du travail est réalisé par 
une routine-machine, appelée (CALL 
4096) par le programme Applesoft 
baptisé CLAS Ce programme fournit 
à la routine les paramètres nécessai- 
res 


e AC: adresse-mémoire à partir de 
laquelle seront chargés en sé- 
quence tous les secteurs de clés 
classées. 

e AN: adresse à partir de laquelle 
seront chargés en séquence tous 
les secteurs de vrac. 

e L'adresse du buffer qui sera utilisé 
pour reconstituer les secteurs clas- 
sés et les écrire sur disquette est 
POKée en 24 (poids faible) et 25 
(poids fort). 

e Le statut par rapport au classe- 
ment (mixte ‘’classé/vrac” ou ‘rien 
de classé} est POKé en 214. 

e PC et SC donnent l'adresse sur 
disquette du dernier secteur de 
clés classées, tandis que PF et SF 
donnent le même renseignement 
pour le dernier secteur de vrac. 


Au retour de la routine, le pro- 
gramme récupère les paramètres du 
système reclassé et constitue notam- 
ment le tableau N$ des dernières clés 
de chaque secteur. 


Tel qu'il vous est présenté. le pro- 
gramme suppose que la disquette fi- 
chier se trouve dans le lecteur S6-D2 
au moment de son lancement. Si 
vous voulez l'utiliser avec une dis- 
quette dans le lecteur S6-D1, rajou- 
tez "POKE 5357,1" après le charge- 
ment de la routine CLAS ORB.I. 

À noter que le fonctionnement de la 
routine-machine suppose que l'on 
puisse charger tous les secteurs de 
clés en même temps dans la mé- 
moire centrale. Le buffer utilisé, juste 
au-dessus de la routine elle-même, 
va de $1500 à $15FF. soit 5376 à 
5631. Le nombre maximum de sec- 
teurs autorisé est donc : INT((38400 
— 5631) / 256), soit 128. de O0 à 
127, ou encore 8 pistes complètes. 
ce qui fait déjà beaucoup. bien qu'il 
soit difficile de savoir combien d'oc- 
tets sont perdus à la fin de chaque 
secteur du fait quon ne peut pas 
toujours y stocker un nombre rond 
de clés. Si on suppose par exemple 
que toutes les clés sont formatées à 
15 caractères, plus 4 octets d'infor- 
mations annexes, ce qui représente 
donc 15+4+4 octets par élément de 
la table, on pourrait gérer par ce sys- 
tème un fichier de plus de 1400 en- 
registrements, si la place disponible 
sur le reste de la disquette le permet. 
Sur ce dernier point, ajoutons encore 
que, bien que cela soit sans doute 
moins pratique, rien ne s'opppose à 
ce que la disquette du fichier de don- 
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nées se trouve dans un lecteur et 
celle de sa table de référence dans 
un autre. Dans ce cas, il faut songer 
à appeler le lecteur contenant la dis- 
quette “table” avant de recopier la 
table 5OB du DOS dans le pro- 
gramme de traitement (voir ligne 4 
du programme de démonstration) 
En outre, il sera bon de prévoir une 
boucle d'attente avant l'écriture ou la 
lecture des secteurs de clés par 
RWTS, car le passage trop rapide 
d'un lecteur à l'autre peut générer 
des erreurs du type ‘VO ERROR" 
(dans notre programme de démons- 
tration. l'ajout d'une boucle “FOR 
Z=1 TO 100: NEXT' à la fin de la 
ligne 65 ferait l'affaire) 

Par ailleurs, si les secteurs sont nom- 
breux et les clés longues. il peut ne 
pas y avoir assez de place sous le 
"HIMEM:4085" pour constituer le ta- 
bleau N$ sans écraser le programme 
de classement Il faudrait alors modi- 
fier ce dernier afin d'écrire les derniè- 
res clés de chaque secteur dans le fi- 
chier FP au fur et à mesure de leur 
obtention. plutêt que de les regrou- 
per d'abord dans un tableau en mé- 
moire 


Routines en assembleur 


Nous vous laissons le soin d'en 
conduire une analyse détaillée à 
l'aide des commentaires qu'elles 
comportent et nous bornerons ici à 
indiquer leurs principes généraux de 
fonctionnement 


Routine de recherche dans un 
secteur 


Afin d'appliquer la méme démarche 
aux clés classées ou en vrac. la rou- 
üne n'utilise aucun algorithme de re- 


moire et compare chaque octet 
d'une clé à l'octet de même rang de 
la clé recherchée Elle ne passe à la 
clé suivante. en considérant que la 
comparaison a échoué. que si un 
octet diffère (test BNE) ou si tous les 
octets sont identiques mais avec une 
différence entre la longueur des deux 
clés comparées 


Routine de classement 


Elle se charge de la lecture en mé- 
moire de tous les secteurs de clés. 
classées ou non. Le pnncipe utilisé 
en alors le suivant 


e Rechercher la plus petite clé du 
vrac, la mettre dans une zone à 
part et signaler le fait en rempla- 
çant sa longueur par $FF dans son 
enregistrement 

e Prendre la première clé classée et 
la comparer à la plus petite du 
vrac. Les données de la plus petite 
des deux sont copiées dans le buf- 
fer alloué à la constitution de sec- 
teurs classés Dès que ce buffer est 
plein, on l'écrit sur la disquette en 
notant la toute dernière clé qu'il 
contient, et on passe au secteur 
suivant en repartant au début du 
buffer 

® Si la pius petite est une clé clas- 
sée, on refait ensuite la comparai- 
son avec la clé classée suivante. Si 
c'est la clé “vrac” qui a été mise 
dans le buffer. on va chercher la 
nouvelle plus petite clé du vrac et 
on reprend la comparaison avec la 
méme clé classée 

e À l'occasion de ces opératons. les 
clés annulées ne sont pas prises 
en compte et ne sont jamais re- 
portées dans le buffer Elles dispa- 
raissent donc de la table de réfé- 


l'on a ainsi transféré dans le buffer 
et ré-écrit sur disquette dans des 
secteurs classés toutes les clés qui 
étaient déjà classées et toutes les 
nouvelles clés précédemment sto- 
ckées en vrac 


Conclusion 


Ce système de gestion de fichiers 
nous semble présenter des points po- 
sitifs qui peuvent justifier son emploi 
dans certaines de vos applications 


— Moyennant un reclassement pério- 
dique de la table de référence. les 
temps d'accès aux enregistrements 
sont très acceptables. même sur des 
fichiers de taille conséquente. 

— Avant de commencer à ‘travail- 
ler”. il n'est pas nécessaire d'attendre 
que se charge en mémoire. à partir 
d'un fichier important. une table de 
référence sous forme de tableau Ap- 
plesoft La lecture des fichiers an- 
nexes FP et PL ne représente plus 
qu'un délai d'attente minime 

— La mémoire centrale n'est pas en- 
combrée par la table de référence 
des enregistrements. d'où gain de 
place pour vos programmes et réduc- 
tion des problèmes de ‘nettoyage 
mémoire” 


En revanche. l'exploitation de cette 
méthode dans vos traitements est 
sans doute plus complexe qu'une 
gestion uniquement réalisée sous 
"DOS 3 3 + Applesoft” Nous espé- 
rons cependant que l'analyse du pro- 
gramme de démonstration, dont les 
parties principales peuvent étre repri- 
ses à quelques adaptations près pour 
d'autres programmes. vous permettra 
de trouver dans cet article une aide 
efficace pour vos problèmes de fi- 


cherche Elle traite en séquence rence chiers 
toutes les clés du secteur lu en mé- e Le classement est terminé lorsque Eu 
Programme TEST ,0C: NEXT : DATA 169,148,164 
0,0,32,217,3,96 
1 HIMEM: 9 # 4096 - 1 10 D$ = CHRS (4):018 = CHRS (13) + 
2 AR = 9 # 4096:ADR = 9 *# 4096 + 25 CHRS (4): PRINT D$"BLOAD REC. 
6éiCLE = ADR + 16:ASY0 = CLE + OBJ ,A"AR:RUS = D1$ + “PRHO":NN 
256:HS = INT CASYO / 256):LS = = 47: DIM NSCNN) 
ASYO - 256 # HS:HD = INT CADR 13 POKE AR + 21,LL: POKE AR + 22,H 
/ 256) :LD = ADR - 256 *# HD:HL L: POKE AR + S9,LD: POKE AR + 
= INT (CLE / 256):LL = CLE - 60,HD: POKE AR + é66,LD: POKE À 
236 # HL R + 67,HD: POKE AR + 42,LS: POKE 
3 LC = 6:BU = 9 # 4096 + 5 x 256:HB AR + 43,HS 
= INT (BU / 2S56):LB = BU - 2 15 PRINT D$°OPEN FP°: PRINT D$"REA 
Sé »* HB: POKE 8,LB: POKE 9,HB D FP": INPUT NZ,NF,TT,00,1C: FOR 
4 RES = 26:ABL = 29:10 = 9 # 4096 + 1 = O0 TO N2: INPUT N&CI1): NEXT 
256 # 4:AA = 3: FOR I = 0 TO 1 3: PRINT DS°"CLOSE": DIM PLZ(20) 
6: POKE 10 + I, PEEK (47080 + 
13: NEXT :10T = 10 + 17:DH = INT 20 TEXT : HOME : PRINT DS"OPEN PL" 
(DT / 256) :DL = DT - 256 *# DH: 3: PRINT DS"READ PL°: INPUT PL: 
POKE 10 + 6,DL: POKE 10 + 7,D FOR I = 1 TO Pl: INPUT PLÆCI) 
Hz; POKE 10 + 17,0: POKE IQ + 1 : NEXT : PRINT DS"CLOSE": PRINT 
8,1: POKE 10 + 19,239: POKE 10 DS"OPEN DON,L100°: PRINT RUS: GOTO 
+ 20,216 180 
5 POKE 10 + 3,0:RUTS = 768: FOR I = 50 FOR 1 = O0 TO NZ: IF 28% < = NS 
0 TO 7: READ OC: POKE RUTS + I 1) THEN N = 1:11 = NZ: NEXT : RETURN 


SSSR 
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60 NEXT :N = NZ + 1: RETURN 
65 P = INT (N / 16):S = N - 16 *# P 


70 POKE 10 + 4,P: POKE 10 + S,S: POKE 
10 + 9,HB: POKE 10 + 8,LB: POKE 
10 + 12,C: CALL RWTS: RETURN 

75 PRINT : IMAERSE : PRINT 2MS;: NORMAL 
: GET 2%: PRINT : RETURN 

80 C = 1: GOSUB 65: CALL AR:R = PEEK 
(RESD):BL = PEEK (ABL):RI = 0: 
O = 0: IF R = 0 AND 2CS = NS(N 
>) AND N € NZ THEN R = 1: RETURN 


81 IF R= 0 THEN RETURN 
82 IF (N = NZ AND IC € 2) OR (TT = 
N AND IC > 0) THEN BL = 0 
83 J = 2 # RI:A = PEEK (ADR + J) * 
256 + PEEK (ADR + J + 1): GOSUB 
90:2M$ = “EST-CE LE BON": GOSUB 
9S: IF O$ = O0“ THEN RI = RI + 
1:0 = 1: RETURN 
84 RI = RI + 1: IF RI € = R - 1 THEN 
83 
85 IF 2C$ = NS(N) AND N « 
R = 1: RETURN 
86 R = R * GL: RETURN 
90 PRINT O$"READ DON,R"A: FOR 1 == 
0 TO 6: INPUT 2Y$(I1): NEXT : PRINT 
RUS: PRINT : UTAB 12: FOR 1 = 
0 TO 6: PRINT * “3;2Y8C1);: CALL 
- 868: PRINT : NEXT : PRINT : 
RETURN 
9S PRINT : INVERSE : PRINT 2M8;: NORMAL 
: INPUT * 7? *:,08$: IF OS € >" 
0° THEN 0% = "N" 
96 RETURN 
98 PRINT DS"WRITE DON,R‘A: FOR I = 
O0 TO 6: PRINT ZY#(I1): NEXT : PRINT 
DS"PR#O°: RETURN 
100 HOME : PRINT *1 - CREATION": PRINT 
"2 - MODIFICATION": PRINT “3 - 
CONSULTATION" : PRINT "4 — ANN 
ULATION®: PRINT “5 - LISTE*: PRINT 
“6 - FIN‘: PRINT : INPUT “"VOTR 
E CHOIX : “;CHr IF CH € ji OR C 
H > 6 THEN 100 
110 IF CH = 6 THEN 2000 
115 IF CH = 5 THEN 3000 
120 UVTAB 10: HTAB 1: INPUT "CLE ? 
"328: IF 28 = ** THEN 100 
125 2C$ = 2%: IF LEN (Z$) > (250 - 
AA) THEN 120 
130 L = LEN (2%): POKE LC,L: FOR 1 
æ 1 TO L:s POKE CLE + 1 - 1, ASC 
(€ MIDS (28,1,1)): NEXT 
200 IF NZ = - 1 THEN R = 0:P = 0: 
S æ 0: GOTO 600 
210 CI = IC + 1: ON CI GOTO 300,400 


> NZ THEN 


,500 

300 GOSUB S0: IF N { = N2 THEN 31 
0 

305 N = TT:C = 1: GOSUB 6S:R = 0: GOTO 
600 


310 GOSUB 80: IF R = 0 THEN 305 

315 IF O = 1 THEN 600 

320 N = N + 1: GOTO 310 

400 GOSUB S0: IF N > NZ THEN 440 

410 GOSUB 80: IF O = 1 THEN 400 

420 IFR = 0 THEN N = NZ + 1: GOTO 
440 

430 N = N + 1: GOTO 410 

440 GOSUB 80: IF O0 = 1 THEN 600 

450 IF N = TT THEN 600 

460 N = N + 1: GOTO 440 
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500 N = 0: GOTO 440 
600 ON CH GOTO 650,800,900,950 
650 VUTAB 8: HTAB 20: PRINT “CREATI 
ON °: 1F O = 1 THEN 800 
660 UTAB 12: HTAB 1: FOR I = 0 TO 
6: INPUT 2Y8(I1): NEXT : IF LEN 
(ZYS(4)) > 1 OR LEN (ZY#(5))} > 
1 OR LEN (2YS(62) } 1 THEN 66 
0 
670 IF PL € > O THEN À = PLZ(PL): 
PL = PL - 1: GOTO 690 
680 NF = NF + I:A = NF 
690 GOSUB 98 
700 LT = L + AA: IF 00 + LT + 5 < = 
255 AND TT € NN + 1 THEN 720 
710 TT = TT + 1:00 = 0: IF TT > NN THEN 
2M$ = "PLUS DE PLACE": GOSUB 7 
S:TT = NN + 1: GOTO 100 
715 N = TT:C = 1: GOSUB 65 
720 2B = BU + O0: POKE ZB,LT: POKE 
2B + 1,L: FOR 1 = 1 TO L: POKE 
2B + 1 + 1, PEEK (CLE + 1 - 1) 
: NEXT : FOR I = 4 TO 6: POKE 
28 + L + I - 2, ASC (2YSC1)): NEXT 


725 POKE 28 + LT + 2, INT (A / 256 
>: POKE 28 + LT + 3,A - 256 * 
INT (A / 256): POKE ZB + LT + 
4,0 
730 00 = 00 + LT + 4:C = 2: GOSUB 6 
S:1C = 1 + (IC = 22: IF N2= - 
1 THEN N2 = 0 
740 GOTO 100 
800 UTAB B: HTAB 20: PRINT “MODIFI 
CATION * 
810 IF R = 0 THEN 2M$ = "N’EXISTE 
PAS° : POKE 34,9: HOME : TEXT : 
GOSUB 75: GOTO 100 
815 VUTAB 12: HTAB 1: FOR 1 = 0 TO 
6: INPUT ZYS(I1): NEXT : IF LEN 
(ZYS$(4)} > 1 OR LEN (2Y8(5)} D 
1 OR LEN (2Y$(6)) > 1 THEN &I 
5 
820 GOSUB 98:SB = 
- 1) 
840 FOR I = 4 TO 6: POKE BU + SB + 
L + 1 - 4, ASC (ZYS(CID): NEXT 
:C = 2: GOSUB 65: GOTO 100 
900 UTAB 8: HTAB 20: PRINT "CONSUL 
TATION ‘: IF R = O0 THEN 810 
910 UTAB 22:2M$ = “APPUYEZ SUR UNE 
TOUCHE“: GOSU8 75: GOTO 100 
950 VTAB 8: HTAB 20: PRINT “ANNULA 
TION °: IF R = O0 THEN 810 
955 PL æ PL + 1:PL/(PL) = À 
960 SB = PEEK (ASYO + RI - 1) 
980 POKE BU + SB,0:C = 2: GOSU8 65 
: GOTO 100 
PRINT DI$*CLOSE“: PRINT D$"OP 
EN FP°: PRINT DS"WRITE FP°: PRINT 
NZ: PRINT NF: PRINT TT: PRINT 
00: PRINT IC: FOR I = O0 TO NZ: 
PRINT NS$CID: NEXT : PRINT 08° 
CLOSE" 


PRINT DS$"OPEN PL': PRINT DS$°W 
RITE PL®: PRINT Pl: FOR 1 = 1 TO 
Pl: PRINT PLZC1): NEXT : PRINT 
D$°CLOSE" 

2999 END 

3000 N = 0 

3010 C = 11 GOSUB 65:SB = 2 

3020 LI = PEEK (BU + SB - 2): IF L 
1 > O THEN 3050 


RE  _ __ _* 
25 


PEEK (ASYO + RI 


2000 


2010 





3030 N = N + 1: IF N < = NZ THEN 3 * PC:IPF = INT (TT / 16):SF = 


010 TT - 16 x PF: POKE 30,PC: POKE 
3040 GOTO 2000 31,SC: POKE 206,PF: POKE 207,S 
3050 L2 = PEEK (BU + SB — 1):2$% = F 

“*s IF  PEEK (BU + SB) = 0 THEN 50 CALL 4096: FOR I = 0 TO NZ:NS(I 

SB = SB + Li + 4: GOTO 3020 ) = ""3: NEXT 
3053 FOR 1 = 0 TOL2 - 1:2$% = 2$ + 60 P = PEEK (235):S = PEEK (236): 

CHR$ © PEEK (BU + SB + 123: NEXT NZ = (P # 16) + S — 1: FOR I = 

tÀ = 256 # PEEK (BU + SB + Li 0 TO NZ:B = PEEK (768 + 2 * I 

) + PEEK (BU + SB + Li + 12: UTAB D:SY = PEEK (769 + 2 # I1):B = 

10: HTAB 1: PRINT 2$%;: CALL - B # 256 + SY:J = O:L = PEEK « 

868: PRINT :SB = SB + Li + 4 B - 2) - AA 
3060 GOSUB 90: GET 2%: IF 2$ = "S° 70 NSCI) = N$SCI) + CHRS C PEEK CB + 

THEN 2000 JD>:J = J + 1: IF J < L THEN 7 
3070 PRINT : GOTO 3020 0 


80 NEXT :TT = NZ + 1:11 = 0:00 = 0 
: PRINT : PRINT D$°OPEN FP°: PRINT 
DS"WRITE FP°: PRINT NZ: PRINT 





Programme CLAS NF: PRINT TT: PRINT 00: PRINT 

11: FOR I! = O0 TO NZ: PRINT NS< 
S HIMEM: 4095 1): NEXT : PRINT D$"CLOSE": PRINT 
7 DIM NS(47) D$S"PR#O" 


10 DOS = CHRS$ C4): PRINT D$"BLOAD C 
LAS.0BJ"® : PRINT DS$"OPEN FP°2: PRINT 
D$° READ FP° : INPUT NZ,NF,TT,00 














,11: FOR 1 = O TO NZ: INPUT NS Programme INIT 
(1): NEXT : PRINT D#"CLOSE* :AÀ 
= 3 
20 IF II = O0 THEN END S NN = 47 
25 NZ = NZ + 1:TT = TT #1 10 D® = CHRS <4): PRINT DS"INIT H 
30 AC = 38400 - 256 # NZ:AN = AC - ELLO*: PRINT DS*OPEN FP“: PRINT 
CETT — NZ) # 256): POKE 6,0: POKE DS"WRITE FP°: PRINT - 1: PRINT 
7,AC / 256: POKE 8,0: POKE 9,4 0: PRINT O0: PRINT 0: PRINT 2: 
N / 256: POKE 24,0: POKE 25,21 2$ = **; FOR 1 = O TO NN: PRINT 
: POKE 214,11 - 1 2%: NEXT 
33 POKE 26,0: POKE 28,0 20 PRINT DS*OPEN PL*: PRINT DS*UR 
3S NZ = NZ — HiTT = TT - 1! ITE PL°: PRINT 0: PRINT O0: PRINT 
40 PC = INT (NZ / 14):SC = NZ - té DS*CLOSE*: PRINT DS“PR#O* 
Programme REC.SCE 23, S% STA LT2 
24 INY 
ne : 26 STA LC2 
27 INY 
3 ;% RECHERCHE D’UNE CLE » 
EL £ Rs È È 28 STY Sy : POSITION 
4 3 DEBUT DE CLE 
S ;»* CODE = REC.0BJ * 
nd ÿ 29 50 LDA CLE,X ; COMPARAI 
, 
4 34 CMP CINB) ,Y 
’ 
9 ORG #9000 tre HE 
10 OBJ $8#00 _ de 
11 LC $6 : LONGUEUR 
LE Me } LONGUEU 34 CPX LC ;FIN DE L 
12 IN8 EPZ $8 ADRESSE GS SRE 
LR ELLE LECUECERR GUEUR QUE CLE OÙ BUFFER ? 
DE LA CLE LUE DANS LE BUFFER " Res 
14 LT2 EPZ #19 ; LONGUEUR 2 ne 
TOTALE CLE LUE DANS BUFFER + Re 
15 RES EP2 $1A ; RESULTAT :. se | 3 
RECHERCHE.-NBRE CLES POSSIBLES so ; POSITION 
Pre ne de on CLE POSSIBLE DANS BUFFER 
CLE TROUVEE DANS BUFFER . a ais ee 
17 ABL EPZ #10 ;DRAPEAU _ na 
“FIN DE BUFFER" 
44 TAX :X=24A 
18 op 80 45 LDA SY 
19 STX RES 
20 STX ABL 46 CLC 
21 LOY HO ==) 1ERE 47 ADC LT2 
CLE OÙ BUFFER 48 TAY 
22 LDA CINB),Y 49 LOA ÇINB) ,Y : STOCKAGE 
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ADRESSE DE L’ENREGI STREMENT 
50 STA ADR, X 
S1 INY 
S2 INX 
53 LDA CINB),Y 
54 STA ADR, X 
CE) LDX #0 
Sé INY 
S7 LDA CINB) ,Y 
58 BNE S2 3SI <> 0 
-> RESTE DES CLES À EXAMINER 
59 LDA #1 51 DES CL 
ES POSSIBLES EST EN FIN BUFFER 
60 STA ABL ;AUTRES P 
OSSIBLES SUR SECTEUR SUIVANT 
él RTS 
62 S3 LDX #0 ; PASSAGE 
À LA CLE SUIVANTE 
63 LDA SY ; DANS LE 
BUFFER 
64 CLC 
65 ADC LT2 
éé ADC #2 
7 TAY 
68 LDA (INB),Y 
69 BNE S2 
70 RTS 
71 ADR DFS #10 ;ADRESSES 
DES ENREGI STREMENTS 
72 CLE DFS $FF ;CLE RECH 
ERCHEE 
73 SYG DFS $B ; POSITION 
S DES CLES POSSIBLES 
74 DCM *INT" 
75 END 





Programme CLAS.SCE 


Î 3 4 26-26 26 36 DE HE JE DE JE JE D 2e EH JE DE JE JE JE DE HE DE JE DE DE DE JE 26 JE 
2:55 # 
3 ;% ROUTINE DE RECLASSEMENT # 
4 ;x LISA 1.5) # 
DE CODE = CLAS.O0BJ < 
6 ;% * 
7 GE DDEDE DE DE DE DE DE DE DE DE DE DE DE DE DE DE JE JE JE DE DE DE DE DE JE DE DE 6 JE DE DE D 
8 ; 
9 ORG $1000 
10 O8J 5800 
11 2CC EPZ $6 sDEBUT 20 
NE CLES CLASSEES 
12" 2CT EPZ 58 ; DEBUT 20 
NE CLES "EN VRAC" 
13 BUF EPZ $18 ADRESSE 
OU BUFFER 
14 ZCCP EPZ $1A ; DEBUT 20 
NES “DE TRAVAIL" 
15 2CTP EP2Z $1C s. 
16 PFC EPZ $1E ; PFC/SFC 
= PISTE/SECTEUR DU 
17 SFC EP2Z $1F ; DERNIER 
SECTEUR CLASSE 
18 PFT EPZ $CE ÿPFT/SFT 
= PISTE/SECTEUR DU 
19 SFT EP2Z $CF ; DERNIER 
SECTEUR "EN VRAC" 
20 IC EPZ $D6 STATUT C 
LES/CLASSEMENT (G/1) 
2; LU EPZ $D?7 ; LONGUEUR 
“UTILE" DE LA CLE 
22:3P EPZ $EB PYS = PI 
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STE/SECTEUR POUR RUTS 


s EPZ $EC 
LC EPZ $ED ; LONGUEUR 
TOTALE DE LA CLE 
ZTPP  EP2 $EE 
LCT EP2Z $EF LONG. TO 
TALE + PETIT CLE DU VRAC 
S2C EPZ S$F9 ; POINTEUR 
"FIN ZONE CLASSEE" 
SèT EPZ $FA ; POINTEUR 
“FIN ZONE VRAC" 
SYC EPZ $FB ; POINTEUR 
"DEBUT CLE" DANS BLOC CLASSE 
SYCO EPZ SFC ;POSITION 
+ GRANDE CLE DANS SON BLOC 
LCT2 EPZ S$F0 ;LONG. TO 
TALE D’UNE CLE DU VRAC 
sy EPZ $FE ; POINTEUR 
DANS BUFFER RECOPIE/DI SQUETTE 
CLEMAX EQU $300 ; STOCK. D 


ERNIERE CLE/CHAQUE SECTEUR 
SXC EPZ $FF POINTEUR 
DANS LA ZONE "CLEMAX" 
LDA #1 :INITIALI 
SATION PARAMETRES POUR RUTS 
LDX #$C 
STA 10B.*x 
LDA 2CT+! 
STA 2CTP*+1 
LDA IC 
BNE S7 
RIEN N’EST CLASSE 


LDA ZCC+i 
NE “NON CLASSE" 
STA 2ZCCP+i 
LDA #0 
STA P 
STA S 
LOX #8 
SERVIRA POUR LA SUITE 
STX CMINT 
LDA 2CC 
STA 10B,X 
INX 
sa LDA 2CCP+1 
DES PISTES CLASSEES 
STA I10OB,X 
JSR RUTS 
LOY P 
LOX S 
CPY PFC 
BNE S1 
CPX SFC 
8EQ S50 
si CPX #$F 
BNE S2 
INY 
STY P 
LOX #0 
BEQ S3 
S2 INX 
S3 STX S 
INC ZCCP+1 
LOX #9 
JMP S4 
S50 INC 2CEP+i 
FIN DE ZONE 
LDA 2CCP+1 
STA S2C 


1 1C=1 --} 


;DESUT 20 


;CMINT<D0 


; LECTURE 


; POINTEUR 


S5 


INX 


; PASSAGE 


AU PREMIER SECTEUR DU VRAC 


L DES SECTEURS SUIVANTS 


CPX #$10 





;ET CALCU 
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77 BNE Sé 
78 INY 
79 STY P 
80 LOX #0 
81 Sé STX S 
82 JMP S8 
83 S7 LDA #0 5 ON ARRIU 
E LA SI RIEN N’EST CLASSE 
84 STA P ; PREMIER 
SECTEUR URAC = 0/0 
85 STA 5 
86 S8 LDA 2CTP+1 ;LECTURE 
DES SECTEURS DE CLES EN URAC 
87 LDX #9 
88 STA 10B,X 
89 JSR RUTS 
90 LDY P 
1 LDX S 
92 CPY PFT 
93 BNE 59 
94 CPX SFT 
95 BEQ S10 
F6 S9 INC 2CTP+1 
97 JMP S5 
98 S10 INC ZCTP+I :MA.J, P 
F1 OIRITEUR FIN BE ZONE 
F 99 LDA 2ZCTP+I 
fi 100 STA S£T 
F 101 LDA HO 
NH 102 STA SXC 
sa 103 STA P ; ECRITURE 
A PARTIR DE PISTE 8/SECTEUR 0 
“ 104 STA S 
F 105 STA SYB 
106 LDA #2 ; COMMANDE 
| “ECRITURE" POUR RUWTS 
107 STA PFC 
108 LDX #$C 
109 STA 10B,X 
110 LDA IC 
111 BEQ S100 
112 JMP S27 3RIEN N'E 
ST CLASSE 
113 S100  LDA 2CC+1 ; EXAMEN À 
PARTIR DU DEBUT DE 
114 STA 2CCP+1 ;LA ZONE 
DES CLES CLASSEES 
115 S12 LOY #0 ;1ERE CLE 
D'UN BLOC (236 OCTETS) 
116 LDA (2CCP),Y 
117 Sii STA LC ; LONGUEUR 
TOTALE 
118 INY 
119 LDA <ZCCP),Y 
120 STA LU ; LONGUEUR 
UTILE 
121 INY 3 SYC POIN 
TE SUR LE IER CARACTERE 
122 STY SYC :DE LA CL 
E 
123 LDA (2CCP),Y 
124 BNE S13 3SI O --> 
CLE ANNULEE 
125 S19 LDA SYC ;ON SAUTE 
A LA CLE SUIVANTE 
126 CLC 
127 ADC:LC 
128 ADC #2 
129 TAY 
130 LDA (2CCP).Y 
131 BNE Si! 5Si O0 --) 
LE BLOC EST FINI 
132 INC 2CCP+1 ; PASSAGE 
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133 
134 


135 
136 


137 
138 


139 
140 


141 


142 
143 


144 
145 


146 
147 
148 
149 
150 
151 


152 


153 
154 


155 
1Sé 


157 


158 
rSS 
1 60 
lé! 


162 


163 
164 
165 


léé 
167 


168 
169 
179 
171 


172 
173 


174 
175 
176 


177 
178 
179 
1 80 
181 
182 
183 


AU BLOC SUIVANT 
LDA 2CCP+1 
CMP S2C 
BLOC ? 
BCC 
INC IC 
FINTRLE 
JMP S270 
S13 LDA CMINT 
0 --> PLUS DE UVRAC 
BEG S131 
LDA PFC 
—-) ON À DEJA CHERCHE 
BEG S130 
PETITE CLE DU (RAC 
SAP JSR RPT 
S130 LDA CMINT 
LIRAC SI CMINT=6 


BEQ S131 

LDA LUT 
LUT LU 

LDX #0 

STX LM 

CMP LU 

BCS Si4 


; DERNIER 


;ÿNON 
{OUI --) 


URAC S'IL EN RESTE 


:CMINT = 


LA PLUS 


; PLUS DE 


INC EM 


S14 ÉDYESYC 
SON CLE CLASSE À 
S140 LDA (2CCP),Y 
PETITE DU VRAC 
CMP CMINT,X 
BCC S1i31 
€ VRAC 
JMP S20 
S13i LDA LC 
LC+5 OCTETS PAR CLE EN 
CLC 
LE 0 QUI MARQUE LA FIN 
ADC #S 
CLC 
ADC SY8 
BCC Sié 
E LA 
JSR S132 


SECTEUR/PASSE AU SUIVANT 


JMP Sid 

LDX SXC 

LDA SFC 

RT ADRESSE DU BLOC 
STA CLEMAX,X 
LDA SYCO 

DE LA CLE DANS LE BLOC 

INX 
STA CLEMAX,X 
INX 
STX SXC 

OINTEUR DE CLEMAX 
LDA BUF+1 

SECTEUR CLASSE QUE 
LDX #9 

NT DE CONSTITUER 
STA 108,X 
JSR RUTS 
LOX S 

AU SECTEUR SUIVANT 

INX 

CPX #$10 

BNE S15 

INC P 

LDX #0 

STX S 

LOY #0 

TEUR DU BUFFER 


S132 


S15 


PLACE SUR LE SECTEUR 


; COMPARAI 


;LA PLUS 


: CLASSEE 


;1L FAUT 
; COMPTANT 


;DU BLOC 


SIL Ÿ à D 


;ECRIT LE 


POIDS FO 


; POSITION 


:M.A.J, P 
;ECRIT LE 


L’ON VIE 


; PASSAGE 


; RAZ POIN 
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184 STY SYB 237 ÉLC 
185 RTS 238 ADC SYB 
186 Si6 LDY SY8 ; RECOPIE 239 BCC S24 
LES DONNEES DE LA CLE 230 JSR S132 
187 LDA LC DANS LE 241 S24 LOY SYB 5M.A.J. P 
S8UFFER OINTEURS DE CLEMAX 
188 STA (BUF) ,Y 242 LDA LCT 
139 Cl:C 243 STA (BUF),Y 
190 ADC n2 244 INY 
171 STA LUT2 ; LONGLIEUR 245 LDA LUT 
TOTALE + ADRESSE 246 STA (BUF) ,Y 
192 INY 247 LDA SYM 
193 LDA LU 248 STA SYCO 
194 STA (BUF) ,Y 249 LDA 2TPP 
195 INY 250 STA SFC 
196 STY SYB ;M.A.J. P 251 INY 
OINTEURS DE CLEMAX POUR 252 LOX #5 
197 LDY SYC ;:LE CAS 0 253 S25 LOA CMINT,X ; TRANSFER 
U CETTE CLE SERAIT LA T DE LA CLE 
198 STY SYCO > DERNIERE 254 STA (BUF),Y 
DU SECTEUR EN COURS 255 INX 
199 LOA ZCCP+1 ;DE CONST 254 INY 
ITUTION 257 CPX LCT 
200 STA SFC 258 BNE S25 
201 LOX #0 257 STY SYB 
202 Si? LDA (2CCP),Y ; TRANSFER 260 LOA SYM 
T INTERMEDIAIRE 261 CLC 
203 STA CMIN,X 262 ADC LCT 
203 INX 263 STA PFT 
205 INY 264 TAY 
206 CPX LUT2 265 LDA (2CTP),Y ; TRANSFER 
207 BNE S17 T DE L’ADRESSE 
208 LOY SyB 266 LDY SYB 3DANS LE 
209 LDX #0 BLOC 
210 S18 LDA CMIN,X ; TRANSFER 267 STA (BUF),Y 
T DANS LE BUFCER 268 INC SYB 
211 STA (BUF),Y 269 LOY PFT 
212 INX 27 INY 
213 INY 271 LDA <2CTP),Y 
214 CPX LUT2 272 LDY SYB 
215 BNE S18 273 STA <BUF) ,Y 
2ié LDA #0 PIARQUE L 274 INY 
A FIN PROVISOIRE DU SECTEUR 275 LDA #0 3FIN OU B 
212. STA (S8UF),Y UFFER 
218 STA PFC 274 STA (BUF),Y 
219 STY SYB 27 STY SYB 
220 JMP S19 : PASSAGE 278 LOX" TC 
A CLE CLASSEE SUIVANTE 279 BNE S26 ;IL NE RE 
221 S20 BEQ S21 STE QUE DU VRAC 
222 JMP S23 280 INX 
223 S21 INX ;OCTET “C 281 STX PFC ; SIGNALE 
LASSE" = OCTET “VRAC" QU’ IL FAUDRA CHERCHER LA 
224 INY 282 JMP S129 3NOUUVELLE 
225 LDA LM + PETITE CLE DU VRAC 
226 BNE S22 3CLE "URA 283 S26 LDA CMINT 
C" EST LA PLUS COURTE 284 BNE S27 31L PEUT 
227 CPX LU ;FIN DE L ENCORE RESTER DU VRAC 
A CLE LA PLUS COURTE ? 285 S28 JSR S132 ; ECRIT DE 
228 BEQ S210 RNIER SECTEUR ET SORT 
229 JMP S140 ;NON >) S 286 RTS 
UITE COMPARAI SON 287 S27 JSR RPT 3 CHERCHE 
230 S210 JMP S131 + PETITE CLE DU LVRAC 
231 S22 CPX LUT FIN DE L 288 S270 LDA CMINT 
A CLE LA PLUS COURTE ? 289 BEQ S28 ; PLUS DE 
232 BEQ S23 VRAC -} FIN 
233 JMP S140 NON 5 S 290 JMP S23 ; TRAITEME 
UITE COMPARAISON NT “BUFFER" 
234 S23 LDA LCT LA CLE ” 291 RPT LDA 2CT+1 :1ER BLOC 
URAC" EST LA PLUS PETITE DU VRAC 
235 GUC STOCKAGE 292 STA 2CTP+1 
DANS BUFFER AVEC CHANGEMENT 293 LDY #0 
236 ADC #5 ; PREALABL :RAZ INDI 
E DE SECTEURR SI NECESSAIRE CATEUR "RESTE DU VRAC" 
D 
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CS 


Ci 


Cé 


CO 


C1 


C2 


C9? 


STY CMINT ;ON CHERC 
UNE :ERE + PETITE POSSIBLE 
LDA €2CTP) ,Y ;DEBUT CL 
E “VRAC" DU BLOC 
STA LOT. 
STA LCT2 
INY 
LDA 
INY 
STY SY 
CMP #$FF 
DEJA ETE RECLASSEE ? 
BEQ ci 
STA LUT 
STA LUT2 
LDA 2CTP+1 
STA 2TPP 
PETITE POTENTIELLE 
DA Re PTRIIT 
BEQ CI 
ANNULEE 
STY SYM 
LDX #0 ;LA 1ERE 
CLE NON ANNULEE/NON RECLASSEE 
STA CMINT,X ;QUE L’ON 
TROUVE EST TRANSFEREE 
INY 


HE 


CZCTP) ,Y 


;LA CLE À 


000 


;BLOC DE 
LA + 


LA CLE À 
ÊTE 


; DANS CMI 
NT 
INX 
CPX LCT2 
BEQ Ci 
LDA CZCTP) ,Y 
JMP CO 
LDA SY 
CLE "URAC" 
CLÉ 
ADC 
ADC 
TAY 
LDA 
BNE C3 
INC ZCTP+1 
-> PASSE AU BLOC SUIVANT 
LDA ZCTP+1 
CMP S2T 
DEJA TRAITE ? 
BCC Ca 
JMP C12 
PLUS PETITE S’IL EN 
LOY #0 
BEQ C2 
LDA CMINT 
BEG CS 
JOURS LA PLUS PETITE 
LDA (2CTP),Y 
STA LCT2 
INY 
LDA 
INY 
STY SY 
CMP #$&FF 
RECLASSEE 


BEQ Ci 

STA LUT2 

LDX HO 

STX LM ;LM=1 SI 
LUT2>LUT 

CMP 

BCs 

INC 

LDA 


; PASSAGE 
SUIVANTE 


LCT2 
#2 


CeCTPI:Y 

;FIN BLOC 
; DERNI ER 
BLOC 
;NON ! 


;OUI->ON 
RESTE 


;ON À TOU 


(2CTP) ,Y 


;CLE DEJA 


LUT 
c9 
LM 
(2CTP),Y 


BEG CI 


399 
400 
401 
402 


403 
404 


ETE ANNULEE 
CMP CMINT,X 
AVEC + PETITE POTENTIELLE 
BEQ C7 
BCS Ci 
FERIEUR -} ON LA GARDE 
Cii ÉDVESY 
E LE :CMINT: 
LDA <2CTP),Y 
LDX 2CTP+1 
ST 2TPP 
LDX LUT2 
STX LUT 
LDX LCT2 
STX: LCT 
JMP Cé 
INX 
= OCTET 
INY 
LDA LM 
BNE C10 
CPX LUT 
À PLUS COURTE 
BNE C9 
JMP C1 
N GARDE CMINT 
C10 CPX LUT2 
A PLUS COURTE CLUT2<LUT) ? 
BEQ Cii 
N CHANGE CMINT 
JMP C9 
LDA CMINT 
BEQ Ci3 
PLUS DE VRAC 
LDA 2TPP 
S'TAXLC NP EL 
PETITE DEFINITIVE 
LDY SYM 
E RECLASSEMENT DE LA CLE 


DEY 
LDA 
STA 
RTS 
LDX #4 
LDA P 
STA 10B,X 
INX 
LDA S 
STA I10B.X 
LDA /10B 
LDY #10B 
JSR $309 
RTS 
CMIN DFS $FF 
CMINT DFS $FF 
TOUJOURS + PETITE CLE 
DFS #1 
DFS $1 3: POSITION 
+PETITE VRAC DANS SON BLOC 
LUT DFS $1 s LONG. 
ILE + PETITE CLE DU VRAC 
LUT2 DFS $1 
ILE D’UNE CLE DU VRAC 
DFS $1 
DANS UN BLOC DE VRAC 
HEX 016002088000 
ADR DCB 
HEX 000000000100FE46002 
HEX 0001EFD8 
DCM "INT" 
END 


3 COMPAR, 


3CMINT IN 


3ON CHANG 


E7 
MINT" 


;OCTET 
"CLE COMPAREE" 


TC 


DErtL 
GUT<LUT2) ? 


Ci? 
;IL N'Y À 


3BLOC DE 
LA + 
MARQUE L 


HSFF 
C2CTP) ,Y 
c13 
RUTS 


; CONTI ENT 
"URAC" 
LM 
SYM 
UT 
;3LONG. UT 
SY ; POINTEUR 


10B 


DCB 
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SRE 2e e Le al _e ab se 1088- 19 AS F8 18 65 ED 69 02 1200- 0E 11 60 20 0€ 12 AD E7 
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VOUS PROGRAMMEZ SUR APPLE II 
VOUS VOULEZ GAGNER DU TEMPS 
VOUS CHERCHEZ À AMELIORER VOS CAPACITES 


LIGHT EST FAIT POUR VOUS 1 comic 


LIGHT est un ensemble de puissants logiciels 
d’aide à la programmation conçu pour: 
- mieux gérer les fichiers et les disquettes 
mise à jour d’un catalogue général 
état des secteurs libres sur un disque < 
- faciliter l'exploration et l'exploitation des disquettes 


accès direct, lecture, écriture des secteurs 
transfert et recherche des séquences d’octets 

- accélérer l’analyse de vos programmes 
en Basic: recherche des tokens et des suites désignées 
en Binaire: impression en désassemblé de séquences 
d'octets; pistage en tout ou partie du déroulement 


banc d'essais dans Pom's n°13 == 


POUR EN SAVOIR PLUS SUR LIGHT : 
M. 


adresse 





demande une documentation complete, sans engagement de sa part, aux Annees Nouvelles, 70, rue du Javelot, 75013 Paris 
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Nous vous avions promis un 
cahier Macintosh dans chaque numéro 
de Pom's. Voici le premier de ces 
cahiers. Vous y trouverez, outre les 
remarques de cette page, un article 
sur les ROMS du Mac, un article sur 
la programmation de ses curseurs et 
enfin (page 49) un tableau avec les 
renseignements les plus récents sur 
les logiciels du Macintosh. 


Politique éditoriale 


Nous nous sommes longuement 
interrogés sur la politique à suivre 
pour nos articles dans le cahier du 
Mac. Nous avons finalement décidé de 
maintenir, au niveau du Macintosh, la 
politique de qualité de Pom's, qui a 
toujours refusé le nivellement vers 
le bas. Nous partirons donc du 
principe que les lecteurs de Pom's 
auront lU les modes d'emploi du Mac 
et des logiciels quiis utilisent et 
qu'if est donc inutile de leur 
proposer des explications qui ne 
feraient que résumer la documen- 
tation. 


Contenu de 1a disquette Mac 


Nous vous proposons en outre dès 
ce numéro une disquette Macintosh, 
dans laque ile vous trouverez 
e le programme Disk Copy, qui 

permet de réaliser une copie de 
disquettes en quatre passages 


abcdefgnh 


LIVINI 


SENS RIRE 


avec Seulement le lecteur intégré 
du Mac, 

e la police de caractères Cairo, dont 
vous pouvez voir les signes en bas 
de page, 

e les programmes ‘du Mac publiés 
dans les numéros 14/15 de Pom's 


Nous ajouterons à la disquette, 
au fur et à mesure, les programmes 
des numéros suivants, ains1 que 
quelques surprises supplémentaires 
que nous VOUS 1a1ssons découvrir 


Multiplan sur Macintosh 


L Tableau plus compact 


Pour avoir plus de lignes et de 
colonnes à l'écran, écartez à l'aide 
du Font Mover les pollces Seattle de 
la disquette Maltiplan, en les 
mettant dans un fichier Caractéres 
afin de pouvoir les récuperer plus 
tard. Vous obtlendrez alors 20 lignes 
et 7 colonnes à l'écran, au prix d'une 
baisse de la lisibilité. 


2.1mportant presse-papier 


Quand vous sortez de Muitiplan 
aprés avoir copié plus de 50 cellules 
{par exemple pour les transférer à 
MacWrite}, le message “Enregistre- 
ment d'un important presse-papier” 
s'affiche. S'il y a plus de 100 
cellules à copier, il faut cliquer pour 
demander l'enregistrement des va- 
j K 1 


mn p qr 


AY 





leurs formatées ef des valeurs non 
formatées (c'est automatique pour 
moins de 100 cellules) Dans un cas 
comme dans l'autre, validez l'enre- 
gistrement avec OK 


3. Tabulation numérique 


Lorsque vous copiez plusieurs 
colonnes de valeurs de Maltiplan 
vers MacWrite, vous pouvez réaligner 
les valeurs avec la tabulation 
numérique (le triangle pointé} Bien 
entendu, ei vous possédez un 
Muitiplan US (point de décimali- 
sation) avec un MacWrite français 
(virgule de décimalisation), le 
cadrage ne se fera pas avant que 


vous ayez changé les'”” en, 


Si la première colonne contient 
des valeurs numériques, celles-ci ne 
seront pas tabulées Pour atteindre 
cet objectif, il conviendra d'ajouter 
préalablement une colonne blanche à 
la zone à copier vers MacWrite. 


De nombreux autres trucs 
d'utilisation vous sont proposés dans 
"Muitiplan pour Macintosh”, qui doit 
paraître aux £ditions du PSI à la fin 
décembre Cet ouvrage a été réalisé 
à partir de la version 102 de 
Multiplan en version française (août 
1984) 


VU OU 0 ww x y 








ABC DE F 


| 10 nn AA "59 IR FER S 


2345677890 I 


LE & è NN En à o 


PTE PLUIE 


Police Ceiro - Tobleou provenant de Mac the Knife”* 





G 


32 
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Les Routines en ROM du Macintosh 


Le Basic Microsoft donne accès à 41 
routines situées dans la mémoire à 
lecture seule du Macintosh. Malheu- 
reusement. le manuel d'utilisation de 
l'interpréteur indique seulement la 
syntaxe des instructions, ce qui est 
loin d'être suffisant pour une ufilisa- 
ton optimale. De plus. le manuel 
propose. pour obtenir de plus amples 
informations. une consultation du 
“QuickDraw Programmer s Guide”. 
qui n'est pas accessible à l'utilisateur 
du Macintosh ! 


Devant cet état de fait. nous avons 
pensé devoir vous fournir la docu- 
mentation qui aurait normalement dû 
être jointe au manuel d'utilisation du 
Basic Microsoft 


Avant d'entrer dans le vif du sujet. il 
convient de signaler que cet article 
nest pas un ‘remake’ du ‘Quick- 
Draw Programmer’ s quide': nous 
navons jamais eu entre les mains ce 
document 


Cali BackPat (VARPTR(F %(0))) 


Cette instruction permet de définir 
une matrice de 8«8 points (ou pixels) 
qui détermine l'apparence du ‘fond 
de l'écran ‘ (sur lequel sont superpo- 
sés les caractères). Le principe est à 
peu près le même que celui utilisé 
dans le ‘tableau de bord”. pour 
choisir l'aspect du bureau 


Les points ‘on’ (noir) et ‘off 
{blanc) sont déterminés par l'état des 
64 bits contenus dans un tableau de 
4 variables entières. que nous avons 
arbitrairement baptisé F° dans notre 
exemple. L'octet de poids fort de la 
variable d'indice 0 représente la pre- 
mière ligne de 8 points. l'octet de 
poids faible représente la seconde 
ligne de 8 points. l'octet de poids fort 
de la variable d'indice 1 représente la 
troisième ligne. etc. Notons que 
dans le cas d'une utilisation de l'ins- 
tucton OPTION BASE 1. les indices 
doivent être compris entre 1 et 4 
inclus. au lieu de O à 3 


Prenons un exemple concret : nous 
voulons que l'écran (ou plutôt la ‘fe- 
nêtre de sortie”. pour employer la 
terminologie “Mac” !} soit rempli du 
motif suivant 


Poids faible de F&(0) 
RE fort de F&(0) 


} F#(0) 
} F&(1) 
} F&(2) 
} F&(3) 
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Pour obtenir ce motif. nous devons 
affecter à nos quatre variables es va- 
leurs binaires . 


10011601 01000010 
00100100 10011001 
10011001 00100100 
01000010 10011001 


soit. en hexadécimal 


&h9942 
&H2499 
&h9924 
&H4299 


Dans un programme. parmi les multi- 
ples solutions possibles. nous pour- 
ions trouver 


10 DIMF#(3) 

20 DATA &H9942,8&H2499,8H9924, 
&H4299 

30 FOR 1#=0 TO 3 

40 READ FR) 

50 NEXT 

60 CALL BACKPAT(VARPTR(FR(0))) 

70 CLS 


L'instruction CLS est indispensable 
car. si elle est omise. l'écran demeure 
inchangé Pour replacer l'écran dans 
son état initial. il suffit de relancer le 
programme après modification de la 
ligne 20 


20 DATA 0.0.0.0 
Gestion du Curseur 
Cali SetCursor (VARPTR(C%(0))) 


Si vous êtes las de voir le curseur en 
forme de flèche, vous pouvez créer 
le vôtre. Pour cela. il vous faudra 
d'abord définir un tableau de 34 va- 
riables entières {indices O à 33, ou 1 
à 34 avec OPTION BASE 1} que 
nous appellerons C%. 


Les variables C%;(0} à C%(15) sont 
utilisées pour définir la forme du cur- 
seur dans une grille de 16*16 points. 
chaque ligne horizontale de 16 points 
étant affectée à une variable. 


Les variables C%(16) à CX(31) défi- 
nissent le masque du curseur, qui 
permet une superposition à ce qui 
est affiché à l'écran. En effet. si un 
des points du curseur n'est pas mas- 
qué. l'opératron logique XOR (OU 
exclusif, ou encore ‘l'un ou l'autre 
mais pas les deux} est effectuée 
entre le point concerné du curseur et 
celui occupant la même position sur 
l'écran 

La variable C%(32} indique la posi- 
tion verticale du point chaud par rap- 
port au coin supérieur gauche de la 
grille 1616. Le point chaud corres- 
pond aux valeurs retournées par 
MOUSE!{1-6) 


Jean-Luc Bazanegue 


La variable C%(33) indique la posi- 
tion horizontale du point chaud. tou- 
Jours par rapport au coin supérieur 
gauche 


Pour illustrer le fonctionnement de 
cette routine, nous allons créer un 
curseur avant la forme d'un ‘Mac”. 


oi 
1 æ 
ERELELRSRLESME 
LL ET) 
CHI] 
=: CHILI 1 
ÉERSERERDE Æ 
CLLCECLITCR 
CTLUNEEI TR 
LS) Œ M 
ERP IINRSMEME 
CLTLLLNELLLTII 
IMIIIL EE 
2, x EVILETLIS _ 
BE MANN |ISNERE En 
Le] a: 
cæ(15 
Point chaud : CH{32)=5 
Cæ(33)=7 


cæ(16) 
s 


Curseur 








Masque 





100 DIM CA(S3) 


110 REM 

120 REM - Data pour fa définition du 
curseur 

130 REM 


140 DATA &H7FFC,&H8002,&H9FF2, 
&HAOOA 

150 DATA &HAOOA, &HAOOA,&HAOOA, 
&HAOOA 

160 DATA &H9FF2,&H8002,&H8002, 
&H90F2 

170 DATA &H8002,8H5FF4,&h4004, 
&H7FFC 

180 REM 

190 REM - Data pour la définition du 
masque 

200 REM 

210 DATA &H7FFC,&GHFFFE &HFFFE &HEOOE 

220 DATA &HEOODËE, &HEOOE ,&HEOOE, 
&HEOOE 

230 DATA &HFFFE, &HFFFE, &HFFFE, 
&GHFFFE 





ce 11R 


UE 


Ertli me: 


+. 


240 DATA SHFEFE, &H7FFC.&H7FFC, 
&H7FFC 

250 REM 

260 REM - Data pour la position du point 
chaud 

2970 REM 

280 DATA S,7 

290 REM 

300 FOR 1%=0 TO SSREAD CR(IR) NEXT 

310 CALL SETCURSOR( VARPTR(CÆ(0))) 


Note : la routine SetCursor nest pas 
protégée contre les passages de para 
mètres invalides. il faut donc être très 
prudent. surtout en ce qui concerne 
la position du point chaud. si l'on ne 
veut pas planter” le Macintosh 


Cali InitCursor 


Cette instruction. qui ne requiert pas 
d'argument. réinitialise le curstur en 
forme de flèche Si le résultat de 
l'exemple précédent est toujours en 
mémeire, vous pouvez rétablir le cur 
seur d'origine en entrant cette ins 
truction en mode immédiat 


Cali HideCursor 


Après exécution. le curseur est muisi- 
ble. bien que toujours présent 


Call ShowCursor 
Visualise à nouveau le curseur 
Call ObscureCursor 


Le curseur devient invisible (comme 
avec Call HideCursor) mais réappa- 
raîit dès qu'un déplacement de la 
souris est détecté 


Gestion du ”crayon” 


Les routines décrites dans ce para- 
graphe conditionnent le résultat ob- 
tenu après exécution de toutes les 
instructions du Basic Microsoft pro- 
pres à créer des graphismes (LÎNE. 
CIRCLE..})., mais aussi après exécu 
tion des routines graphiques en ROM 
{Call FrameRect. Call FillRect, etc.) 


Call PenSize (targeur.hauteur) 


Détermine les dimensions du crayon 
{ou traceur). Les valeurs par défaut 
sont égales à 1 pour la largeur et la 
hauteur 


Lorsque l'on trace une ligne, la lar- 
geur du trait est reportée vers la 
droite par rapport aux coordonnées 
horizontales. alors que la hauteur est 
reportée vers le bas par rapport aux 
coordonnées verticales En revanche. 
pour les figures fermées (un rectan- 
gle, par exemple) ou un arc de cer- 
cle. les dimensions sont respectées et 
l'épaisseur du trait est reportée à l'in 
térieur de la figure. 


Call PenPat (VARPTR(F%(0))) 


Cette instruction fonctionne exacte- 
ment de la même façon que Call 


D 
34 


BackPat: une nouvelle explication se- 
rait donc superftue 


Cali Penmode (mode) 


Call Penmode deteririne le comner- 
tement des mstructions ou routines 
graphiques. par rapport à ce qui est 
dé affiché à l'écran 

mode - à 


Il s'agit du mode normal les points 
constituant la ligne ou la figure. qu'ils 
soient ‘on’ ou ‘off. masquent ce 
qui se trouve sur l'écran 


mode -— © 


L opération logique OR (OU) est réa 
lisée entre fa ligne (ou la figure) et le 
fond Autrement dit. les points “on” 
du fond et de la ligne sont affichés 
Bans le petit tableau placé ci-des- 
sous. la première colonne de chiffres 
représente les noints de la ligne à af- 
ficher (1 point ‘on. 0 = point 
“eff la seconde colonne représente 
les points dé présents à l'écran et la 
troisième indique le résultat de l'opé 
ration 


1ŒRI 1 
I1ORG 1 
O'OR°l =:1 
OORO=-0 
mode -— iÙ 


Ce mode autorise une opération logr- 
que de type XOR (OÙ exclusif) Les 
points ‘on du fond et de la ligne 
sont affichés, sauf si un point ‘on’ 
de la ligne correspond à un point 
“on” du fond. Dans ce cas. le point 
résultant est ‘off” (blanc) 


1 XOR 1 = 0 
1 XOR O0 = : 
O0 XOR 1 = 1 
0 XOR 0 = 0 


mode = |] 


Opération logique ANB (ET) Les 
points résultant de l'opération sont 
‘on’ uniquement si les points corres- 
pondants de la ligne et du fond sont 
on 


1AND 1=1 
1 ANDO=0 
8AND 1-0 
O AND 0 = O0 
mode — 12 


Tous les points constituant la ligne 
sont d'abord inversés (NOT). puis 
sont superposés aux points définis- 
sant le fond 


NOT 1=0 
NOT 0 = 1 
mode — 13 


Double opération logique NOT et 
OR Les points constituant la ligne 
sont d'abord inversés (comme avec 
12), et sont ensuite traités comme 
avec ‘mode := 9" 


NOTI1ŒR:I=I1 


NOT OOR 1=1 
NOTI1ORO-0 
NOTOEORO- 1 


mode -— 14 


La méthode employée est la même 
que pour l'argument précédent. mise 
à part l'opération logique OR. ici 
remplacée par X@R 

NOT 1 XOR 1 = 
NOT 0 XOR 1 -— 
NOT 1 XOR 0 
NOT 0 XOR 0 


mode — 15 


Le second opérateur logique est cette 
fois un AND. 

NOT 1 AND 1 
NOT 9 AND 1 
NOT : AND O0 
NOT 0 AND O 


Afin de mettre en évidence une des 
possibités de cette routine. nous vous 
proposons un petit exemple qui affi- 
che un texte estompé. à la manière 
des menus du Mac 


10 CLS 

20 DIM FR(3) 

30 FOR 1&-O0 TO? 

40 FRIIR)-&HSSAA 

SO NEXT 

60 CALL PENPAT(VARPTR(FR(O))) 
70 CALL TEXTFONT(O) 

80 CALL PENMODE( 11) 

SO CALL PENSIZE( 1,12) 

100 PRINT “Caractères estompés” 
1 10 LINE(2,2)-(1 40,2) 

120 GOTO 120 


1 
0 
0 
1 


0 
l 
0 
0 


Call GetPen (VARPTR{P%(0))) 


Cette routine retourne la position 
courante du crayon dans P%(0) 
{coordonnée verticale) et P%({l) 
{coordonnée horizontale). Call Get- 
pen permet aussi de savoir où sera 
affiché (avec PRINT ou WRITE} le 
prochain texte où nombre Avec OP- 
TION BASE 1. i faut utiliser les indi- 
ces 1 et 2 au lieu dæOet1 


Call HidePen 


Inhibe le crayon. Tout se passe 
comme si les instructons graphiques 
étaient ignorées 


Call ShowPen 
Redonne son efficacité au crayon. 
Call PenNormal 


Le crayon reprend les caractéristi- 
ques qui lui sont données au mo- 
ment de l'initialisation (valeurs par 
défaut : Call PenSize{1.1}. Call Pen- 
Mode(8}. etc...). 


Call MoveTo (X,Y) 


Déplace le crayon, sans tracer de 
ligne. à la pesition horizontale X et à 
là position verticale Y. 
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Call Move (XR.YR) 


Déplacement relatif de XR points par 
rapport à la position horizontale ac- 
tuelle du crayon et de YR points par 
rapport à la position verticale. Ainsi, 
si la position courante est: X = 100 
et Y — 100. l'instruction Cail 
Move(10.—10) reporte le crayon à 
l'emplacement : X = 110, Y = 90 


Les instructions Call MoveTo et Call 
Move peuvent aussi être utilisées 
pour déterminer la position des pro- 
chains caractères affichés par PRINT 
ou WRITE. 


Call LineTo (X,Y) 


Trace une ligne entre la position cou- 
rante du crayon et les coordonnées 
X (horizontale) et YŸ (verticale). 


Call Line (XR,YR) 


Trace une ligne entre la position cou- 
rante du crayon et les coordonnées 
relatives XR et YR (voir Call Move). 


Gestion du texte 
Call TextFont (police) 


Autorise le choix de la police de ca- 
ractères. Les indications fournies ci- 
dessous sont valables avec un “dos- 
Sier système” standard. les arguments 
pouvant donner des résultats diffé- 
rents avec les versions futures ou 
avec un dossier ‘’bidouillé” 


Chicago 

: New York 
Geneve 

: Monaco 

: Venice 

: London 

: Athens 

: San Francisco 

: Toronto 


Ÿ 00 -J O1 8 © mm © 


Call TextFace (aspect) 


Détermine l'aspect du texte La rou- 
tine utilise les 7 bits de poids faible 
de l'argument de la manière sui- 
vante 


e bit O (1) = gras. 

© bit 1 (2) = italique: 

e bit 2 (4) = souligné. 

e bit 3 (8) = relief: 

e bit 4 (16) = ombre: 

e bit 5 (32) = espacement normal 

des caractères: 
e bit 6 (64) = espace plus important 


entre les caractères 


Ainsi, l'argument 7 (1 + 2 + 4) cor- 
respond à: gras + souligné + itali- 
que. O affiche des caractères stan- 
dards. 


Call textSize (taille) 


La hauteur des caractères affichés 
est. par défaut. de 12 points. Cette 
instruction affecte aux caractères une 
hauteur en fonction de l'argument. 
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e Une valeur négative inhibe l'affi- 
chage. 

e O redonne aux caractères leur 
taille par défaut. 

e 1 ‘’plante” le Mac! 

e 2 et plus indiquent la hauteur des 
caractères. 


Il est possible de donner aux caractè- 
res une hauteur de 3 ou 300 points. 
mais la lisibilité n'est pas très bonne 
{elle est méme franchement mau- 
vaise !). De manière générale. il vaut 
mieux sen tenir aux tailles recom- 
mandées par MacPaint et MacWrite. 


Call TextMode (mode) 


Le but de cette instruction est sensi- 
blement le même que celui de Call 
PenMode pour le crayon, avec des 
possibilités moins étendues. 


mode = 0: les caractères sont super- 
posés à ce qui se trouve sur l'écran 
(identique à Call PenMode(8)). 

mode = 1: opération logique OR 
(identique à Call PenMode(9)) 

mode = 2: opération logique XOR 
(identique à Call PenMode{10)) 
mode = 3: les caractères sont affi- 
chés en blanc. et ne sont donc par- 
faitement lisibles que sur un fond 
noir. 


Rectangles 


Call FrameRect 
(VARPTR(R%(0))) 


Trace le contour d'un rectangle dont 
les coordonnées sont situées dans les 
quatre variables entières du tableau 
RR : 

e R%(0) = côté supérieur: 

e R%(1) = côté gauche; 

e R%(2) = côté inférieur: 

e R%{3) = côté droit. 


L'aspect du tracé est conditionné par 
les instructions Call PenMode, Call 
PenSize et Call PenPat Si, pour ces 
instructions, nous conservons les va- 
leurs par défaut. Call FrameRect 
donne le même résultat que 
LINEIX1.Y 1)—-(X2.Y2).B. 


Cali PaintRect (VARPTR(R®%(0))) 


Rempilit un rectangle dont les coor- 
données se trouvent dans le tableau 
R%. avec le motif initialisé par l'ins- 
truction Call PenPat. 


Call EraseRect (VARPTR(R%(0))) 


Efface la partie de l'écran comprise 
dans un rectangle dont les coordon- 
nées se trouvent dans le tableau R%. 


Call InvertRect (VARPTR(R%(0))) 


inverse l'état des points situés à l'in- 
térieur d’un rectangle (NOT). 


Cali FillRect 
(VARPTR(R%(0)), VARPTR(F%(0))) 


Cette instruction combine Call Pain- 


tRect et Call PenPat Ceci permet de 
remplir un rectangle sans modifier le 
motif affecté au crayon Les coor- 
données du rectangle sont dans le ta- 
bleau R% et le motif se trouve dans 
le tableau F%. 


Rectangles aux angles 
arrondis 


Call FrameRoundRect 
(VARPTR(R%(0)),AX,AY) 


Trace le contour d'un rectangle aux 
angles arrondis. Les coordonnées du 
rectangle sont dans le tableau R%. 
Les caractéristiques de l'arrondi sont 
déterminées par AX (axe horizontal 
d'une ellipse) et AY (axe vertical). Si 
AX et AŸ sont égaux, l'arrondi est 
un arc de cercle 


Les instructions  PaintRoundRect, 
EraseRoundRect, InvertRoundRect et 
FillRoundRect fonctionnent de la 
même façon que PaintRect. Erase- 
Rect. etc... avec en plus les valeurs 
AX et AY pour les arrondis. 


Ellipses 


Call FrameOval 
(VARPTR(R®%(0))) 


Trace le contour d'une ellipse inscrite 
dans un rectangle fictif dont les coor- 
données se trouvent dans le tableau 
R% 


R&(O) | 





Si RH(2) — R‘%(0) est égal à R%(3) 
— RSI), l'instruction trace le 
contour d'un cercle. 


Les instructions PaintOval. EraseO- 
val. InvertOval et FillOval sont 
comparables à PaintRect. EraseRect. 
etc. mise à part leur action sur des 
ellipses au lieu de rectangles. 


Ârcs de cercles 


Call FrameÂrc 
(VARPTR(R%(0)).AD,A) 


Trace l'arc d'un cercie (en fait, il 
s'agit plutôt d'un ‘arc d'ellipse"”) ins- 
crit dans un carré fictif (ou un rectan- 
gle) dont les coordonnées se trou- 
vent dans le tableau R%. 


AD correspond à l'angle de départ et 
À à l'angle de l'arc par rapport à AD, 
les valeurs étant données en degrés. 
Les arguments supérieurs à 360 sont 
ignorés. 


ER 


35 


36 


0° 





PaintArc. EraseArc. InvertArc et Fil- 
lArc fonctionnent comme PaintRect, 
etc... tout en utilisant le ‘’système an- 
gulaire” de FrameArc. u 





AU sujet de Tarticie ‘Les 


routines en ROM...” 


Comme nous le signalons dans le 


paragraphe ‘Gestion du texte, la 
routine "Call TextFont” peut donner 
des résultats différents selon la 
version du dossier système Les 
choses allant très vite, nous sommes 
dèjà amené à vous indiquer les 
modifications à apporter pour le 
nouveau dossier système (Finder 
version 1 1) utilisé pour la disquette 
Pom's. 


“ Chicago 
= Geneve 

= New York 
“ Monaco 
Venice 

= London 

= Athens 


IBmUE N — © 
L 


Caractères programmables 
sur imprimantes Apple 


Apple Seedrin 


Sur les impnmantes série Image Wni- 
ter où parallèle DMP. la définition de 
caractères programmables pose des 
problèmes (caractères soulignés]) liés 
à la façon dont l'Applesoft envoie les 
codes à l'impnmante. En effet. l'Ap- 
plesoft positionne toujours le bit de 
poids fort des octets à 1. ce qui inter 
dit d'envoyer des caractères de 
contrôle inféneurs à 128 


Il est donc nécessaire de passer par 


le langage machine pour envoyer 
tous les caractères voulus Le code 
concerné sera POKé à une adresse 
donnée par le programme Basic. puis 
repris par une petite routine du type 


300-AD0703 LDA 5307 
303-20EDFD JSR $FDED 
306-68 RTS 


Dans cet exemple. le code aura été 
préalablement POKé à l'adresse 
$307 (775 en décimal). et l'appel de 


Spicification de la 


San Francisco 
Toronto 

Caïiro 

Los Angeles 


Pour la même raison, je programme 
“Editeur de formes et curseurs” 
enregistré sur la disquette a subi une 
petite modification, par rapport à la 
version listée, afin qu'il soit 
compatible avec le nouveau système. 
Pour nos lecteurs qui utilisent la 
version 1 1 du Finder et ne désirent 
pas acquérir la disquette, signalons 
qu'il suffit de remplacer le ‘Call 
Textfont(1}" de la ligne 170 par un 
“Call TextFont(2)" 


la routine se fera ensuite par un 
CALL 768 


Vous trouverez ci-après un petit pro- 
gramme illustrant cette méthode 

De plus. certaines interfaces intercep- 
tent le code ‘CTRL-I,. soit 
CHR$(9). comme code de 
commande, ce qui empêche de l'ut- 
liser dans la définition d'un caractère 
programmable. Dans ce cas. il est 
donc nécessaire de neutraliser l'inter- 
face {par un PRINT CHRS(9)'2Z" sur 
la carte Super Séne. par exemple) 
afin de recouvrer l'usage du code 9 
On prendra soin alors d'envoyer les 
instructions de neutralisation en tout 
début de programme et de ne jamais 
repasser par elles. pour éviter de les 
voir simpnmer de façon intempes- 
tive E 


largeur du 


caractère 


i sl: à 310 REM 
Exemple d'utilisation RES 
10 REM CHARGEMENT DE LA ROUTINE EN DEC 330 REM 
768 340 PRINT 
20 DATA 173.7,3,32,237,253,96 350 REM 
30 FOR I = 1 TO 7: READ A: POKE 767 + I, 360 REM 
A: NEXT 370 REM 
40 REM CONNECTE L'’IMPRIMANTE 380 DATA 
90 PRINT CHRS (4); "PR#41” 
60 REM 390 FOR I = 
90 REM CREATION DU CARACTERE 
12 REM 400 REM 
130 REM SELECTIONE LA LARGEUR MAXIMALE 410 REM 
16 POINTS 420 REM 
140 REM 430 
150 PRINT CHR$S (279; CHR& (43) 440 REM 
160 REM 450 REM 
170 REM  DEBUT DU CHARGEMENT DU CARACTER 
E 440 REM 
180 REM 470 PRINT 
190 PRINT CHR$ (27); CHR$ (73); 480 REM 
200 REM a9û REM 
230 REM  SEQUENCE À EXECUTER POUR CHAQUE S00 REM 
CARACTERE 910 PRINT " 
260 REM 1 1 
270 REM DEFINITION D’UN CARACTERE D 9520 REM 
E CODE ASCII DEC 49 530 REM 
280 REM MAL 
290 REM Envoi 9 l'imprimante du code ac 540 REM 
sii1 550 PRINT 
300 POKE 775,49: CALL 768 560 





CHRS (80); 


ENVOI 


Î 


DU CODAGE DU CARACTERE 


8.20,.34.65,6S.45.65.34,349.20,8 
,20.34,65,65.65 


TO jé: READ À: POKE 775.4: 


CALL 768: NEXT 


FIN DU CODAGE 


CHRS 


1 
1 


CHRS <27): 
PRINT CHRS$S (4) ;"PR#O° 


PRINT CHRS$ (4) 


SELECTION DU JEU DE CAR 


ACTERES PROGRAMMABLES 


(27); CHRS (39) 


IMPRESSION DU CARACTERE 


1 pal 1 1 1 k : 1 1 
1 Le À 1 CE CS 


RETOUR AU JEU DE CARACTERES NOR 


CHRS (36) 
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Pour tous les passionnés de l'ordinateur personnel, 
les branchés et ceux qui le soht mains, Apple lancé le Club Apple. 
Enfin un (club avec des idées et des services 
pour comprendre, pour gagner, pour s'évader. 
| Le Club Apple, c'est l'esprit Apple. | | | _ | 
C'est le fruit de la passion! | 











Pour en savoir plus sur le Club Apple le fruit de la passion -et connaître tous les avantages que nous réservons aux 
membres du club, découpez dès aujourd’hui le bonet retournez-le à Club Apple, avenue de l'Océanie - ZA de Courtabæœuf - BP131, 
Les Ulis cedex 91944. Vous recevrez sans engagement de votre part toutes les informations pour devenir membre du club. 





Nom Ne Prénom 
Adresse 





_—— __ Code postal 





Apgle Laura. Inc est le Mono de ta marque Macniish 


Il était temps qu'un capitaliste 


0e 


| . KARL 
LENNU MARX 


DAS KAPITAL 








fasse une révolution. 





N'apprenez plus à devenir une machine, Apple a inventé Macintosh. a 


D 








PEACHTREE,, LA COMP 
UE C’EN EST PRES 





La comptabilité, c'est long, complique, 
fastidieux! 
Tout cela était vrai avant Mac Accounting. Avec 
Mac Accounting, le nouveau logiciel de comptabilite 
de Peachtree, finis les livres de caisse en deux exem- 
plaires, finis les bons de caisse, finis les carbones. 
terminées les mises a jour qui font perdre du temps. 
Mac Accounting est un programme comptable deve- 
loppéspécialement par Peachtree pourleMacIntosh. 
Et dans le domaine particulier de la comptabilite, 
la compétence de Peachtree n'est plus a prouver. 
Avec plus de 100.000 utilisateurs dans le monde 
entier, Peachtree possede une tres large expérience 
des besoins des petites et moyennes entreprises 
en matière de comptabilité. Spécialement étudie pour 
un utilisateur n'ayant aucune connaissance infor- 
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matique préalable, Mac Accounting est conçu pour | 
être le plus proche des systèmes manuels. avec 
l'exactitude et la rapidité des solutions informatiques, 
Un comptable reconnaît immédiatement les pages 
d'un journal de caisse ou du Grand Livre: c'est 
exactement ce qu'if retrouvera sur l'écran du Mac 
Intosh lorsqu'il utilisera Mac Accounting. 
Mac Cash est le premier des deux program- 
mes qui constituent Mac Accounting. C'est un livre de 
caisse sur écran. Idéal pour les PME. ses carac- 
teristiques parlent d'elles-mèmes. Lataille du journal. 
le titre des colonnes. la periode comptable et les 
formats monétaires sont définis par l'utilisateur. 
Mac Cash accepte jusqu'à cina taux de taxe, et 
huit colonnes d'analyse des prix hors-taxes. sa mise 
à jour est automatique au fur et à mesure de la 
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TA DEVIENT SI SIMPLE 
E UN PECHE. 
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| saisie des operations. enfin l'utilisateur specifie lui- Dernier avantage: Mac Accounting a ete 
méme les modéles des etats de sortie et leur contenu. conçu en français et peut être utilisé par n'importe 
| Bret, un outil simple et performant. quel utilisateur en moins de trente minutes. 
Mac Ledger est le second module de Mac Le doute n'est plus permis: avec Mac Intosh et Mac 
Accounting, c'est la partie comptabilité génerale. Accounting la comptabilité devient sisimple que c’est 
Le format du journal est standard et peut être utilisé presque un peche. 


aussi bien pour les comptes fournisseurs que peur 
les comptes clients, L'utilisateur définit lui-même le 
format des fiches comptables qui se sélectionnent Peachtree est distribue par Logiciel PC: 113. bd Pereire 
facilement à l'aide de la souris Mac Intesh. Les 75017 Paris. Tel: 763.62.88. 

opérations saisies peuvent étre analysees par type 

de produit, par territeire, par vendeur ou par toute 

autre variable définie par l'utilisateur. htree 
Les créances sont analysées sur trois périodes, 

ce qui facilite contrôle et réajustement. En résume / , 

le complement indispensable de Mac Cash. 
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avec les livres PSI. 


La pratique de l’Appie Il 
tome | 

Por Nicole Breoud-Pouliquen 

Cet ouvrage présente lesspécilicités 
du Bas Applesoft à parur d'une 
description du matériel et du logiciel 
du système Apple. Les cechniques 
de programmation, de composition 
et d'animation de dessins et graphi- 
ques colorés y sont erpliquées à l'aide 
d'exemples illustratifs ec d'exercices 
résolus. 


128 pages - 80,00 FF 


La pratiquede l'Apple il 
tome 2 

par Nicale Bréaud-Pouliquen 

Ce second volume de la pratique de 
l'Apple Il est consacré au Système 
d'exploirarion disque, à la gesuon 
des fichiers à l'impression et aux 
imprimames, à là carte horloge 
Appleclodc De nombreux exemples 
de programmes illustrent les onc- 
uons et les commandes décrites. 


120 pages - 80,00 FF 


La pratique de l'Apple Il 
wme 3 

por Nicole Bréaud-Pouliquen 

et Doniekjean David 

Ce volume est une initiation à la 
programmation en langage machine 
6502 dont le jeu d'instructions est 
expliqué et utilisé, L'assembleur 
symbolique et ses logicielsconnexes 
y sont decrirs. L'inceraction avec le 
Bas ec avec le systeme yest etudiée 


176 pages - 90,00 FF 


Clefs pour l'Apple li 

bar Nicole Breaud-Pouhiquen 

Un livre de relerence, dans la collec- 
uon "Mémentos ”, destiné à se trou- 
ver en permanence a côte de l'ordi- 
näteur Apple H. Son but est l'acces 
rapide à l'infocmauion syntaxe des 
commandes, codes caracteres, ntes- 
sages d'erreurs. codes machine 
adresses vules. {| comporte egale- 
ment un recueil de 25 "trucs" utiles. 
les‘ Comment... ?" 


144 pages - 100,00 FF 
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L’Apple et ses fichiers 

par Jocques Boisponuer 

Pour apprendre progressivement là 
programmation des applications uti- 
lisant les ficher l'ouvrage com- 
mence par une presentation cOnCise 
et illustrée des commandes du Sys- 
teme d'Exploication Disque et des 
iristructions du Basic Applesoft. Les 
rotructions des fichiers séquentiels 
et a acces direct sont ersuite décri- 
tes aimi que leur uuilisation. Des 
méthodes pratiques, souvent mal 
connues, montrent comment utiliser 
au mieux desfichiers à accès direct 
accès indexé, liste inverse. Une 
vingtaine de Programmes illustrent 
l'utilisation de ces techniques. 

le livre : 176 pages - 90,00 FF 
LA disquette d'accompagne- 
ment: 195,00 FF 

Pour Apple II Il plus, lle - Dos 3 3 - 
version 48 K ou plus. 


Muitiplan pour Apple Il plus 
et //e 

por Herve Thiriez 

Multiplan est un progiciel qui per- 
met de gêrer plusieurs vableaux 
simultanément. cer ouvrage sera 
pour les possesseurs d'ordinateurs 
Apple Il Plus ou/# un véritable guide 
d'utilisation de Multiplar: grâce à des 
exemples progressifs et à de nom- 
breux cas d'application (gestion de 
portefeuilles. de coproprieté. feuille 
de pate, impôts, tableaux de bord, 
etc.) 

Le livre : 216 pages- 100,00 FF 
La disquette d'accompagne- 
ment : 195,00 FF 

Pour Apple Il plus, lle - Dos 33 - 
version 64 K ou plus (Disquette 
raitressæ Multiplan indispensable). 


Visicalc sur Apple 

por Hervé Thiriez 

Apres une présentation progressive 
du modele Visicalc. l'ouvrage etudie 
de nombreux cas d'application 
feuille d'mpot, gestion de copro- 
prete, pâye. facturation... permet- 
tanc d'imroduire les differences 
instructions et astuces d'utilisation 
Lelivre:176pages-90,00 FF 
La disquette d’accompagne- 
ment: 195,00 FF 

Pour Apple Il Il plus, He - Dos3,3 - 
version 48 K ou plus (Disquerre 
maitresse Visicak  indispensabie) 
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Pascal UCSD sur Apple Il 
par Jacques Rouault et Patrice Girard 
L'ordinateur Apple H le langage 
Pascal et le systeme d'exploitation 
UCSD forment a eux seuls le plus 
peut ensemble de mcro-informau- 
que professionnelle. Une premiere 
partie de cet Ouvrage est consacrée 
a l'étude de ces trois éléments. Sont 
ensuite abordés les pregrammes de 
mise en route. Enfin les types et ins- 
tructions Pascal UCSD sont étudies 
endetail, ce qur permettrai au lecteur 
de se rendre compte de la richesse 
mais aussi de la facitité d'emploi du 
Pascal 


232 pages - 110,00 FF 


Gestion de fichiers 

et de peripheriques 

pour Apple Il r Pascal 

Dos Hervé Haut 

Ce livre propose un moyen rapide 
et facile pour gérer les fichiers et les 
périphériques sur Apple. De la ges- 
tion de bibliothèque à l'uuilisacion 
des périphériques, l'auteur propose 
un ensemble de programmes utili- 
taires, écrits en Pascal. Un expose 
des techniques les plus élaborées 
permetura d'atteindre le niveau suf- 
fisant pour uuhser les methodes de 
programmation mises en œuvre 


76 pages - 95,00 FF 


Les bases de donnees 

sur Apple Il 

par Michel Keller 

L'objet de cer ouvrage est d'aider le 
lecteur à faire un choix parnu les 
nombreux logiciels existants sur 
Apple. Quatre de ces logiciels sont 
sélectionnés ici : PFS et PFS/Report 
- DB Master - CX BASE 200 - DBASE 
1. Pour chacun on trouve une des- 
cnpuon détaillée du logiciellui-même 
ete sesprocédures de mwe en route, 
de créauon de fichier. de susie des 
données. de maintenance et d'edi- 
tion. L'auteur termine certe etude 
par l'expose des avantages et des 
irconvénienes inhérents à chaque 
logiciel 


144 pages - 85,00 FF 


Microbook : base de 
donnees pour Apple !{l 

bor Ted Lews 

Microbook est un systeme de ges- 
uon de données et un outil de 
développement de programmes 
conçu pourtransformer l'Apple Il en 
















un outil de classement de fichiers, 
de collecte et de recherche d'infor- 
mations, et de traitement de don- 
nées. C'est un ensemble de pro- 
grammes écrits en Pascal qui fat de 
l'ordinateur un vérimble biblio- 
thécaire. 

Les emplois de Microbook sont 
muluples : il peut être utilise pour 
quasiment toutes les applications où 
le stockage et la recherche de don- 
nees est importante. Les progrant- 
mes ecam tres longs, il est recom- 
mandé d'aclieter également la dis- 
quette d'Æcompagnenmrent, propa£e 
en deux versions l'une compilée. 
l'autrecode source 


Le livre : 248 pages- 135,00 FF 


D'ACC SMF AGNEMEN 
Microbook xe de donnée 
par Ted Lewis 

volume MICR 

Apple Il, 1! plus, fe e yfc avec système 


Passal dsquette simple face, compi- 
lée, donc non modifiabie 


Prix : 195,00 FF 
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Microbook ” de donnee 

É Apple 

par Ted Lewis 

‘ né JURCE et volume UNI 
Apple Il, Il plus, //e et //c. avec sys- 


teme Pascal, disquette 2 faces enre- 
gstrees. 


Prix : 295,00 FF 


Le systeme Pascal ainsi que les consi- 
gnes d'utilisation des programmes 
contenus dansle livre sont indispen- 
sables. Cette disquette existe en 
deux versions : l'une, double 
face, destinee aux passionnes 
dela programmation en Pascal, 
qui pourront directement pro- 
grammer dans ce langage, et 
developper et étendre à leur 
gre les facultes du systeme. La 
seconde, compilée, simple face, 
destinee aux personnes qui ne 
connaissent Pas la programma- 
tion en Pascal ou qui n’ont pas 
le temps de programmer elles- 
memes, et qui desirent utiliser 
directement les multiples pos- 
sibilites de Microbook. 

Tous les programmes proposes dans 
le livre sont présents dans chacune 
des disquettes, exceptes les ordres 
pour imprimante 


Signature (00kgatose pour paæment Î 
par cane de cedi} 


CT EN 
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Editeur de formes et curseurs 


Pom's 


Le Basic Microsoft du Macintosh au- 
torise l'emploi d'instructions graphi- 
ques très puissantes. C'est le cas de 
PUT. qui peut être utilisée de deux 
manières différentes : transfert d'une 
matrice de points stockée par GET 
dans un tableau de variables: trans- 
fert d'une matrice de points créée 
par le programmeur La seconde so- 
lution est sans doute celle qui sera le 
plus souvent retenue, puisqu'elle per- 
met de concevoir des formes très 
précises, point par point. Etant don- 
née la haute résolution du Macin- 
toch, la conception d'une forme à 
l'aide d'une feuille de papier quadril- 
lée demande beaucoup de patience. 
ce qui nous à amené à écrire cet uti- 
litaire 


Les formes ou curseurs créés avec 
l'éditeur sont. bien sûr. destinés à 
être utilisés par vos propres program- 
mes Deux cas se présentent : 


1) Vous désirez que votre pro- 
gramme contienne la définition des 
formes ou curseurs sous forme de 
DATA. Dans ce cas. choisissez l'op- 
tion “Imprimer”, qui vous fournit une 
copie des fenêtres significatives. ainsi 
que tous les codes nécessaires à la 
constitution de la liste de DATA {en 
décimal et hexadécimal)} Le sous- 
programme de copie d'écran est 
assez lent, puisqu'écrit en Basic. mais 
cette solution nous paraît plus élé- 
gante que lJemploi du classique 
LCOPY De plus ce sous-pro- 
gramme pourra être ultérieurement 
remplacé pas son équivalent en lan- 
gage machine: 


2} Vous déstrez que le curseur ou la 
forme soit stockée sur disquette afin 
de charger sa définition directement 
depuis votre programme. Pour cela. 
il faut employer l'option ‘Enregis- 
trer” Cette dermère solution est à 
notre avis la meilleure puisquil nest 
pas nécessaire d'écrire les valeurs 
sous formes de DATA, ce qui permet 
un gain de temps non négligeable et 
économise de la place en mémorre 
{très important avec un Mac 
128K0 !) 


Le chargement de la définition d'un 
curseur à partir de votre programme 
ne pose pas de problème. puisque le 
nombre d'octets requis est invanable 
{voir l'arncle ‘Les routines en 
ROM}. Par exemple, pour charger 
un curseur baptisé préalablement 
‘curseur (qui a dit que nous man- 
quons d'imagination ?), on peut utili 
ser un segment de programme qui 
ressemblerait à 
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10 Chargement et 
modification du curseur 
standard 

20 DIMCR(33) 

30 OPEN”i",1,"curseur” 

40 FOR I8=0 TO 33 

50 INPUT #1,CR(1R) 

60 NEXT 

70 CLOSE 

80 CALL SETCURSOR 
(VARPTR(CR(O))) 

90 GOTO 90 


La taille des formes créées avec l'édi- 
teur peut varier de 1*i à 64+54 
points, il faut donc connaître le nom- 
bre d’octe# nécessaires à leur repré- 
sentation. On peut utiliser la formule 
“4 + NY « 2 « INTINX + 15) 
16)" mais cela oblige à faire le calcul 
et à noter le résultat sur un papier 
que l'on ne retrouvera pas forcé- 
ment. Une autre solution consiste à 
quitter le programme (retour au bu- 
reau) juste après avoir enregistré une 
forme car. lors de l'enregistrement. le 
nombre d'octets requis est transféré 
dans le presse-papier et peut être 
collé dans la ‘fenêtre d'information” 
de la forme. Lorsque l'on utilise des 
tableaux de variables entières. le 
nombre indiqué doit être divisé par 
deux. pour charger une forme de 64 
par 54 points (436 octets) baptisée 
“forme” (toujours autant d'imagina- 
tion ! }, on peut utiliser 


10 Chargement et affichage 
d'une forme 64*54 

20 OPTION BASE 1 

30DIMF#(218) 

40 OPEN"{",1 "forme" 

50 FOR 1#=t TO 218 

60 INPUT ®#1,FR(1R) 


70 NEXT 

80 CLOSE 

90 PUT(10,+0),FR 
100 GOTO 100 


Nous avons vu précédemment que la 
taille maximale autorisée par l'éditeur 
est de 64«54 points. mais il est par- 
faitement possible de regrouper plu- 
sieurs formes pour en constituer une 
plus grande. Les trois petits program- 
mes suivants réalisent le regroupe- 
ment de quatre formes baptisées 
“formel” à ‘formed. et ceci dans 
différentes configurations 


10° Transformation de 4 
formes de 6454 points en 
une forme de 64 points 


(horizontal) par 216 points 
(vertical) 

20 OPTION BASE 1 

30 DIM FIR(4,218) 

4OFORI8=i TO 4 

50 OPEN1”",1,"forme”+ 
RIGHTS$S(STRS(IR), 1) 

60 FORJR=i TO 218 

70 INPUT #1,FIR(IR, JR) 

80 NEXT 

GO CLOSE 

100 NEXT 

110 OPEN" 0",1,°F" 

120 PRINTS1,64,216 

130 FOR 121 TO 4 

140 FOR JR=3 TO 218 

150 PRINT #1 ,FIR(IR JR) 

160 NEXT 

170 NEXT 

180 CLOSE 





10° Transformation de quatre 
formes 64#54 points en une 
forme de 256 points 
(horizontai) par 54 points 
(vertical) 

20 OPTION BASE 1 

30D1MFIR(4,218) 

40 FOR 18=1 TO 4 

50 OPEN", 1 FORME "+ 
RIGHTS$(STRS(1R), 1) 

60 FOR JR=1 TO 218 

70 INPUT #1,FIRUR. JR) 

80 NEXT 

90 CLOSE 

100 NEXT 

110 OPEN‘o,1,"F" 

120 PRINT£#1,256,54 

130 FOR J&=0 TO 53 

140FORIR=! TO 4 

IS0FORKZR-3 TO 6 

160 PRINTS LFIR(IR, JR" 4+KR) 

#70 NEXT 

180 NEXT 

190 NEXT 

200 CLOSE 


10’ Transformation de 4 
formes de 64%54 points en 
une forme de 128 points 
(horizontal) par 108 points 
(vertical) 

20 OPTION BASE 1 

30 DIMFIR(4,218) 

40 FOR 1%" TO 4 


A ER. 
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MST ADIS SES Dot ds el 
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50 OPEN"i",1 ,"forme"+ 
RIGHT$(STRS(IR), 1} 

60 FOR J&-1 TO 218 

7OINPUT#1,FIR(IR, JR) 

80 NEXT 

90 CLOSE 

100 NEXT 

1 10 OPEN" 0", 1, °F" 

120 PRINT #1,128,108 

130 FOR 18=0 TO 2 STEP 2 

140 FOR JR=0 TO 53 

150 FOR KR"1 TO 2 

160 FOR LR=3 TO6 


Pour charger et afficher à partir de 
votre programme une forme ainsi 
constituée 


10° Chargement et affichage 
d'une forme constituée à 
partir de quatre formes 
64*54 

20 OPTION BASE 1 

30 DIM F8(866) 

AOOPEN"1",1,"F" 

50 FOR 1%=1 TO 866 

60 INPUTS1,FR(IR) 


e Le plus petit programme ne sera 
utilisé qu'une seule fois. afin de 
créer les fichiers XP et XL qui se- 
rent ensuite appelés par le pro- 
gramme principal Cette solution 
nest peut-être pas la plus simple 
mais simposait puisque la mé- 
moire disponible sur un 128Ko ne 
permettait pas l'intégration des 
DATA dans le programme princi- 
pal 


e Le programme principal doit être 


entré tel quel: il ne faut pas ajou- 
ter quoi que ce soit si vous ne 


70 NEXT 
170 PRINT #1L,FIR(IR-KR,JR*4+LR) TE ss 
1BOINEËT 90 PUT(10,10),F& 
PO REnT 100 GOTO 100 
200 NEXT 
210 NEXT La saisie du programme doit s'effec- 
220 CLOSE tuer en deux temps 


1 ‘Programme de création des fichiers Xt et XP, 
utilisés par le programme principal. 

10 DATA 24,155,32,0,88,0,140,0,262,0,515,0,1025,-32768, 
2048,-16384,4096,24576,8192 

20 DATA 12288,16384,6144,-249,-1024,16135,-512,263,0, 
263,0,263,0,263,0,263,0,263,0 

30 DATA 263,0,263,0,263,0,51 1,0,127,0,0,0,0,0,0,0,0,0,0,0, 
0,0,0,0,0,0,0,0,0,0,32,0,104,0 

40 DATA 184,0,312,0,568,0,1080,0,2104,0,4159,-1024, 
8192,1792,16384,1792,-32768,1792 


50 DATA 16384,1792,8192,1792,4159,-256,2111,-256,1080, 


0,568,0,312,0,184,0,120,0,56,0 
60 DATA 8,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,8224, 
8192,22616,22528,-29556 
70 DATA -29696,18183,7680,8962,15360,4484,30720,2248, 
-4096,5233,-8192,8739,-4096 
80 DATA 16647,-26624,-113,-1024,16135,-512,547,0,1137, 
-32768,2296,-16384,4580,24576 
90 DATA 9158,12288,18311,6144,-28921,-29696,24327, 
24064,15623,15360,2559,2048, 127 
100 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 16,0,28,0, 
22,0,19,0,17,-32768,16,-16384 
110 DATA 16,24576,-16,12288,-32768,6144,-32768,3072, 
-32768,1536,-32768,3840,-32768 
120 DATA 7680,-16,15360,16368,30720,16,-4096,17, 
-8192,19,-16384,23,-32768,31,0,22,0,4 
130 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,508,0, 
263,0,263,0,263,0,263,0,263,0 
140 DATA 263,0,263,0,263,0,263,0,263,0,-249,-2048, 
16384,7680,8192,15360,4096,30720 
150 DATA 2048,-4096,1025,-8192,515,-16384,263,-32768, 
143,0,94,0,60,0,8,0,64,54,8,2 
160 DATA 2047,-8192,4,4,6144,6 144,6, 12,8192,1024,6, 12, 
1820t,-11776,6,12,17573,4608,5 
170 DATA 16276,18213,-28160,2,-16280,17573,512,1,16, 
10009,4608,2,8,4096,1024,2,32712 
180 DATA 6143,-2048,4,-17500,10240,0,4,7940,-4096, 
24576,4,8324,0,-28672,30,16463,1 
190 DATA 2048,106,16458,-16382,25600,479,8351,28676, 
-28160,691,-8327,-22519,2304 
200 DATA 1377,-16,-11246,1152,2772,-27,27174,1088, 
5504,16256,13605,22560, 1 1008,0 


voulez pas obtenir un splendide 
‘Memory full” B'autre part. lors 
de là première sauvegarde. il est 
nécessaire de mettre la ‘fenêtre de 
sortie à sa taille maximum pour 
éviter un éventuel  scrolling” lors 
de l'exécution su 


210 DATA 6802,-20336, 1 3824,0,3465,24840,276 48,21 824, 
1732,-15852,21525,21, 1346,42 

220 DATA -22208,0,21 155,-1,-10240,0,866, 1,-22528,0, 
674,17477,-12287,21840,354,-30583 

230 DATA -20140,5,20898,-30583,21504,0, 1346,-30583, 
28672,0,450,-30583,12288,0,386 

240 DATA -30583,12624,1,20866,-30583,6149,21 844,770, 
-30583,2048,0,514,-24695,2560 

250 DATA 0,2562,-8087,1192,2,-23549,-31463,1026, 
-2184B,1026,8261,512,0,3074,-32747 

260 DATA 808,2,-26620,3,386,10888,12293,1 1,194,16456, 
24584,2049,100,-32732,-16374 

270 DATA 7173,60,-32729,-32760,3585,24,-7965,10,1797, 
9,-14,8,897,9,-14,8,257,4,-28,5 

280 DATA 11,4,-24796,4,3,226,24776,-8190,-32747,791, 
20829,6146,8261,7176,4354,1795 

2900ATA -30183,24576,8320,194,24673,16383,-16257, 
-125,-1 

300 OPEN “0”, 1,"XL"FOR 1&=1 TO 31 2-READ N&-PRINT #1 ,N&. 
NEXT:CLOSE 

310 OPEN ‘0°, 1,"XP° FOR 1&=1 TO 218READ NR PRINT #1,NR: 
NEXT CLOSE END 


Programme Principal 


10 CLEAR,22000,1024CALL HIOECURSOR: 
ON ERROR GOTO 2210.DEFINT A-V-DEFSTR W-2 
OPTION BASE 1 DIM C(34),D(34),R(4),P(4)r4 1604), H(16), 
E(18),F(9),K(312),0(554),0(218) 

20 DATA” Voulez-vous .”,1 e Créer un curseur, 
2 e Créer une forme,3 e Reprendre un Cuyrseur, 
4 e Reprendre une forme,S e Quitter 

30 DATA 32,80,80,72,36,32754,-32759,32713,2085,1987, 
1057,963,508,0,0,0,32,112,112,120,60,32766,-1,32767, 
4095,2047,2047,1023,508,0,0,0,6,0 

40 DATA | e Point chaud,2 e Enregistrer,3 e imprimer, 
4 e Curseur,S e Effacer,6 e Grille, 7 e Quitter 

50 DATA 512,512,512,512,512,1792,-520,1792,5:2,512, 
512,512, 512 

60 DATA 16382,16385,20473,20485,20485,20485,20485, 
20485,20473,16385,16385,20605,16385,12282,8194, 
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16382,16382,32767,32767,28679,28679,28679,28679, 
28679,32767,32767,32767,32767,32767,16382,16382, 
16382,5,8 
70 DATA -32768,16384,8192,4096,2048,1024,512,256,128, 
64,32,16,8,4,2, 1 
80 DATA La position du point chaud n'étant pas, 
“établie, les valeurs assumées sont ”,X = 0,Y=0 
90 DATA 0 Effacer, Ajouter ligne,2 Supprimer tigne, 
3 Ajouter colonne,4 Supprimer colonne,S Imprimer, 
6 Enregistrer,7 Grille,8 Quitter,9 Décaler 
100 DATA 8184,16380,32766,-1,-16381,-10021,-14253, 
-9509,-12213,-9509,-16381,-1,32766,16380,8184,0, 
8184,0,0,32766,32766,32766,32766,32766,32766, 
32766,32766,32766,0,0,8184,0,7,7 
110 OPEN"i°,1,"XL",6:FOR 1=1 TO 312:NPUT#1 I(I)NEXT-CLOSE: 


OPEN"i",1,"XP°,6:FOR 1=1 TO 218.INPUTS#1 ,Q{U)NEXT.CLOSE: 


RESTORE 70:FOR 1=1 TO 6:READ H(I)' NEXT:FOR i=3 TO 9: 
Fl)=-1: NEXT.WV="Voulez-vous ”.H=-16:WiDTH “Ipt1:°,255S 

120 CALL TEXTFONT(O):CALL MOVETO(2, !2):PRINT "@ Pom's et 
JLB° GET(3,3)-(99,12),MLINE(3,3)-(99, 12),30,BF:J=0: 
Bl=501! 874di:Al=VARPTR(M(1))+4FOR 1=1 TO 10: 

FOR J=0 TO ! 3POKE Bl+J,PEEK(AI):Al=Al+ 1 NEXT-Bi=Bl+64 
NEXT 

130 GOSUB 2170:RESTORE FOR 1=1 TO 4:P(I)=O:NEXT: 

CALL BACKPAT(VARPTR(P(1)):CLS 
LINE(44,30)-(444,86),,B:LINE( ! 48,102)-(340,246),.6: 
LINE(150, 104)-(338,122),,8 

140 FOR 12128 TO 224 STEP 24LINE (320,1)-(335,1+15S),,B: 
LINE(335,t)-(320,1+ 15 YLINE(335,1+ 15)-(320,1) 
LINE(322,1+2)-(333,F+13),,8 
LINE(323,1+3)-(332,t+ 12),30,BF NEXT 
LINE (150,247)-(340,247) 

150 LINE (46,87)-(446,87) CALL PENSIZE(2,2): 
LINE(49,35)-(439,81),,8 LINE(341,103)-(341,246): 
LINE(445S,31)-(445,86) 

160 GOSUB 1 790.CALL PENPAT(VARPTR(P(1))): 

CALL PENSIZE(4,4).P(1)=231 P(2)=4S:P(3)-86:P(4)-444: 
CALL FRAMERECT(VARPTR(P(1))):CALL PENNORMAL 

170 CALL TEXTFONT(1)CALL TEXTSIZE(24):CALL TEXTFACE(I ): 
CALL MOVETO(64,66):PRINT “Pom's”:CALL TEXTMODE(I ): 
CALL TEXTSIZE( 14) CALL TEXTFACE(O):CALL TEXTFONT(S): 
CALL MOVETO(192,62) PRINT'Editeur de formes et 
curseurs” 

180 CALL TEXTSIZE(12):CALL TEXTFONT(O):FOR 1=118 TO 23B 
STEP 24CALL MOVETO(1S2,i)READ W:PRINT W:NEXT 

190 R(1)=40R(2)=S4 R(3)=77.R(4)=1 49. 

CALL INVERTROUNDRECT(VARPTR(R(1)),18,18):R(1)=106: 
R(2)=152R(3)=121.R(4)-337 

200 FOR 171 TO 34READ D(IYNEXT 
CALL SETCURSOR(VARPTR(O( ! ))):CALL SHOWCURSOR: 
PUT(420,226),Q 

210 W=INKEYS$S.IF W<>"" THEN 230 ELSE IF MOUSE(O)<O THEN 
240ELSE i=1+1:1F }=5Q THEN 
CALL INVERTRECT(VARPTR(R(1)}):1=0 


220 GOTO 210 

230 N=ASC(W)1IF N<49 OR N>53 THEN 210 ELSE N=N-48: 
GOTO 260 

240 IF MOUSE(1)<321 OR MOUSE(1 334 THEN 210 ELSE 
A=MOUSE(2) 


250 IF A>128 AND At143 THEN N=1 ELSE IF A>152 AND A«167 
THEN N»2 ELSE IF A>176 AND A<191 THEN N=3 ELSE IF 
A>200 AND A<215 THEN N=4 ELSE IF A3224 AND A<239 
THEN N»5 ELSE 210 

260 P(1)=105+24"NP(2)=321.P(3)=P(1)+ 1 4P(4)=-335. 
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FOR 120 TO 21:CALL INVERTRECT(VARPTR(P(1))): 
FOR D=0 TO SONEXT:NEXT:GOSUB 1790: 
CALL BACKPAT(VARPTR(P(1))):CLS: 
ON N GOTO 290,990,280,970 

270 CALL HIDECURSOR:WiDTH ‘pt 1:°,96:GOSUB 2150: 
GOSUB 1860 CALL TEXTFONT(6)-CALL TEXTSIZE(IB): 
CALL MOVETO(: 32,145): PRINT “Retour au bureau...” 
SYSTEM 

280 E=0-GOT0 300 

290 E=i 

300 DiM A(18),8(18)-LINE(338,26)-(461 ,197),30,BF: 
LINE(130,210)-(204,262),30,BF 

310 FOR 1=26 TO 178 STEP [S2:LINE(I,26)-{1 +132, 190),30,BF 
LINE(I,26)-(1+132,190),,BLINE(I+2,28)-(1+130,52),,B: 
LINE(1+2,54)-(1+130,58),,BFLINE(I+2,191)-(1+134,191): 
CAILL PENSIZE(2,2Y:LINE(+133,27)-(1+133,190): 
CALL PENNORMAL:NEXT 

320 F=1:6GOSUB 18 10:CALL MOVETO(68,44):PRINT "Curseur”: 
CALL MOVETO(220,44).PRINT “Masque” 

330 LINE(340,28)-(460, 196),,B:LINE(338,26)-(462, ! 98),,6: 
FOR 1252 TO 196 STEP 24:LINE(340,1)-(460,t): 
CALL MVETO(348,1-8):READ W:PRINT W:NEXT 

340 LINE(340,199)-(464,199):LINE(132,212)-(202,260),,8: 
LINE(130,210)-(204,262),,B:LINE(132,263)-(206,263): 
CALL PENSIZE(2,2)LINE(205S,21 1)-(205,262): 
LINE(463,27)-(463,198).CALL PENNORMAL 

3S0 F(1)=7 F(2)=7:U=0 V=0:6=1:B#0:A(1)=16:A(2)-16:B(1)-16: 
B(2)= 16:CALL SETCURSOR(VARPTR(C(1))):{F E THEN 410 

360 GOSUB 2:50:60SUB 1850 

370 Z=" 

380 GOSUB 1950:;F À THEN N=} GOTO 940 ELSE OPEN ‘i”,1,2,6 

390 FOR 1=3 TO 18 INPUT ®#I,A(I):NEXT:FOR 1=3 TO 18: 
INPUT® 1 ,B(I):NEXT:INPUT #1, V,U:CLOSE: 
F V AND H OR U AND H THEN ERREOR S7 

400 PUT(108,92),M,PSET-PUT(148,228),A:PUT(172,228).B: 
PUT(28,60)-(155,187),A,OR:PUT(180,60)-(307,187),B,0R: 
B=1 

410 W=INKEYS:IF W<>"" THEN SS0 ELSE IF MOUSE(O)<>-1 THEN 
410 

420 P=MOUSE( 1 }:Q-MOUSE(2):IF P>340 AND P<460 AND 0>28 
AND 0+<196 THEN N=(0-4)\24:60T0 560 

430 I-POINT(P,Q) AND 1 

440 IF Q<61 OR 0>187 THEN 410 

450 IF P>28 AND P<156 THEN S10 

460 IF P<18! OR P>307 THEN 410 

470 WHILE MOUSE(O)<O'R=(MOUSE(1 )-1 72)\8: 
S2(MOUSE(2)-52)\8:/F R-1 AND H OR S-1 AND H THEN S00 

480 J=R“8+173K=S*8+53S2S+2:1F 1 THEN PUT(J,K),F,PRESET 
B(S)=B(S) AND NOT H(R) ELSE PUT(J,K),F,PSET: 
B(S)=B(S) OR H(R) 

490 PUT(172,228),8,PSET 

500 WEND-GOTO 410 

S10 WHILE MOUSE(O)<O R=(MOUSE(1)-20)\8 
S=(MOUSE(2)-S2)\8:IF R-1 AND H OR S-5 AND H THEN 540 

520 J=R*8+21:K=S28+53 S=S+2:1F 1 THEN PUT(J,K),F,PRESET: 
A(S)=A(S) AND NOT H(R) ELSE PUT(J,K),F,PSET: 
A(S)=A(S) OR H(R) 

530 PUT(148,228),A,PSET 

540 VWEND:GOTO 410 

550 N=ASC(W)-48 IF N<1 OR N>7 THEN 410 

560 R(1)=S+24#N:R(2)=3 41 'RTI=R(1)+23:R(4)=460: 
FOR 1=0 TO 21CALL INVERTRECT(VARPTR(R(1))): 
FOR D=0 TO SO-NEXTNEXT: 
ON N GOTO 570,630,700,790,840,880,910 
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S70 RESTORE 60 FOR i=1 TO 34READ D(I)NEXTR(1)=30 
R(2)=230 R(3)=S1 R(4)=1SS; 

CALL INVERTRECT(VARPTR(R(1))) 
CALL SETCURSOR(VARPTR(D(1))) 

580 IF MOUSE(O)=-1 THEN P=MOUSE( 1 }0=MOUSE(2). 
U=(P-28)\8:V=(0-60)\8 
IF (U AND H OR V AND H)=0 THEN 600 

590 GOTO 580 

600 P(1)-60+8% V P(2)=28+8*UP(3)=P(1):8.P(4)-P(2)-8 
FOR 1=0 TO 21-CALL INVERTRECT(VARPTR(P(1))) 

FOR D=0 TO SONEXTNEXT 
CALL INVERTRECT(VARPTR(R(1))) 
IF G THEN C(33)-6:C(34)-6 ELSE C(33)=V.C(34)=U 

610 B-1.CALL SETCURSOR(VARPTR(C(1)}) GOTO 410 

620 Enregistrer 

630 IF B THEN 650 ELSE GOSUB 2150GOSUB 1850 
GOSUB 1920 RESTORE 80FOR 1-116 T0 164 STEP 16 
CALL MOVETO(124,1)READ W.PRINT W-NEXT GOSUB 2070 

640 IF D THEN 670 

650 GOSUB 2150:1F B THEN GOSUB 1850 ELSE GOSUB 1860 

660 GOSUB 1950:1F A THEN 670 ELSE OPEN “0”,1,2,6 
FOR 1=3 TO 18 PRINT#1,A(I)NEXT:FOR i=3 TO 18 
PRINT 1,B(I)NEXT PRINT 1,V,UCLOSE 

670 PUT(108,92),M,PSET 

680 IF FM'OUSE(0)<0 THEN 680 ELSE 410 

690 ‘imprimer 

700 GOSUB 2150:60SUB 1850 CALL MOVETO( 124,124) 
PRINT WV ‘imprimer ?7* GOSUB 1920:GOSUB 2070 

710 IF D THEN 670 ELSE PUT(108,92).M,PSET 

720 CALL HIDECURSOR P=2700=224R=470S=272 
GOSUB 18SOCALL MOVETO(290,2S1) 

PRINT “Impression...” P=260-PR-158: S=190 
W1=*F000!:"LPRINT CHR$(24), GOSUB 1880 

730 LPRINT CHR$(24) CHR$(27) "r" CHRS(31) 7" CHRIS 31)" " 
CHR$(27) "f"P=1780=26 R-310S=190W1="F0280" 
GOSUB 1880 

740 LPRINT CHR$(24) CHR$(31) *3", W1="F000 1!” P=1300=210 
R=2045°262 GOSUB 1880 

750 LPRINT CHR$(27) “r° CHRS(31) "7° CHRS(31) “7 CHRS( 31) 
S° CHRS(24) CHR$(27) °c” 

760 W="000" FOR 1=3 TO 18 LPRINT TAB(26).USING'F5#5#5" 
AC): Y=HEXS$S(A(I)): X="$T+LEFT$(W,4-LEN(Y))+Y LPRINT 
TAB(35),X TAB(73), USING'###5##" B(1):Y-HEX$(B(1)) 
X=°$"+ LEFT$(W,4-LEN(Y)) Y'LPRINT TAB(81 ),X NEXT 

770 LPRINT LPRINT LPRINT TAB(26); Point chaud x =” 

U "/ y =" VPUT(270,224),M,PSET CALE SHOWCURSOR 
GOTO 410 

780 Curseur 

790 |F G=0 THEN 810 ELSE As1 FOR 1=3 TO 18:1F A(1) THEN A=0 

800 NEXT:IF A THEN 410 

810 IF G THEN G=0:C(33)=VC(34)=UFOR 1-1T0O 16 
C(l)=A(I+2)NEXT.FOR 1=17 TO 32.C(1)=B{1-14) 

NEXT ELSE G=1:GOSUB 2170 

820 CALL SETCURSOR(VARPTR(C(1)} GOTO 410 

830 Effacer curseur 

840 GOSUB 2150 GOSUB 18S0:CALL MOVETO(124,124) 
PRINT WV ‘effacer ?* GOSUB 1920 GOSUB 2070 

850 |F D THEN 670 ELSE PUT(108,92),M,PSET 
LINE(28,60)-(156, :88),30,BF 
LINE(180,60)-(308, 188),30,BF 
LINE(140,220)-(196,2S2),30,BF FOR 1=3 TO 18 A(l)=0 
B(1)=0 NEXT IF F THEN GOSUB 1810 

860 U=0 V=0B-0.60TO 410 

870 Griile curseur 


880 IF F THEN F=0 ELSE F=1 

890GO0SUB 1810GOT0 410 

900 Quitter curseur/forme 

910 N=1 GOTO 930 

920 N=0 

930 GOSUB 21S0 GOSUB 1850 GOSUB 1920: 

CALL MOVETO(124,116) PRINT WV ‘quitter ?° 
GOSUB 2070:1F D THEN IF N THEN 670 ELSE 1340 

940 IF N THEN ERASE B 

950 ERASE ACALL HIDECURSORGOTO 130 

960 Reprendre forme 

970 E=0:GOTO 1000 

980 Créer forme 

990 E=1 

1000DIMA(218) 

1010 A(1)=64 A(2)=S4L=64M=S4RESTORE 100FOR 1+{ TO 34 
READ O(I)NEXTF(1)=4f(2)=4F=1 

1020 LINE(3S8,3)-(458,93),30,BF LINE(3S8,3)-(458,93),,8 
LINE(360,S)-(4S6,91 ),B:LINE(360,94)-(460,94) 

1030 LINE(33S,110)-(482,274),30,BF 
LINE(33S,1 10)-(482,274),B 
LINE(337,112)-(480,272),,BLINE(337,27S)-(484,27S) 

10 40 CALL PENSIZE(2,2)LINE(4S9,S)-(459,93) 
LINE(483,111)-(483,274) 

1050 CALL PENNORMALRESTORE 9OFOR I: 128 TO 272 STEP 
I6.LINE(3371)-(480,1)CALL MOVETO(342,1-4)READ W 
ÎF 1°272 THEN PRINT W, ELSE PRINT W 

1060 NEXT CALL SETCURSOR(VARPTR(C(1))):IF E THEN 1110 

1070 GOSUB 2150 GOSUB 18S0:Z=°" 

1080 GOSUB 19SO.F A THEN 950 ELSE OPEN *1",1,Z,6 

1090 INPUT £I,L,MIF L<i OR L264 OR Mct OR l'BS4 THEN ERROR 
57 

1100 K={(L+1S)\I6:FOR 1=1 TO MFOR J=1 TO K 
INPUT #},A((I-1)#4+.J+2):NEXT NEXT CLOSE: 
PUT(108,92),M,PSET 

1110 LINE(S,3)-(L#S+7,M#S+7),30,BF 
LINE(S,3)-(L"S+7,M#S+7),,B GOSUB 1830: 
LiNE(S,M#S+8)-(L"S+9,M*S+8) 

1120 CALL PENSIZE(2,2).LINE(L"S+8,4)-(L*S+8,M*S+7): 
CALL PENNORMAL IF E THEN 1140 

1130 PUT(S,5)-(324,274),A,OR PUT(376,21),A 

11 40 IF M=S4 THEN R(1)=129:GOSUB 2130 

1150 IF L=64 THEN R(1)=161 GOSUB 2130 

1160 IF M=1 THEN R(1)-14S:GOSUB 2130 

1170 IF L=1 THENR(1)=177 GOSUB 2130 

1180 W=INKEYSIF Woo" THEN 1270 ELSE 1F NOT MOUSE(O) 
THEN 1180 

1190 P=MOUSE( 1) Q=MOUSE( 2) 1F MOUSE(O)=-1 THEN IF P>337 
AND P«481 AND 0>113 AND 04274 THEN N=(Q-1 14)\16: 
GOTO 1280 

1200 I=POINT(P-(P MOD S=0),0-(0 MOD S=0)) AND ! 

1210 IF P<S OR P>L*S+S OR Q45S OR G>M#S+5 THEN 1! 180 

1220 Points forme 

1230 WHILE MOUSE(O)<0 R=MOUSE(1 )\S S-MOUSE(2)\S:IF R<1 
OR RL OR S<1 OR S>M THEN 1260 

1240 J=R#S+ 1 K=S#S+ 1 T=((R+15)\16)+2:S=(5-1 )#4+T: 
IF 1 THEN PUT(J,K),F,PRESET A(S)=A(S) AND NOT 
H(R-(16*(T-3))) ELSE PUT (J,K),F,PSET A(S)=A(S) OR 
H(R-(16*(T-3)))} 

1250 PUT(376,21),A,PSET 

1260 WEND GOTO 1 180 

1270 N=ASC(W)-48:1F N<O OR N>9 THEN 1180 

1280 1F (N=1 AND M=S4) OR (N=2 AND M=1) OR (N=3 AND L=64) 
OR (N=4 AND L=1) THEN 1180 ELSE R(1)=113+16%N: 
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R(2)=338:R(3)-R(1 )+ 1 S:R(4)-480 

1290 FOR 1=0 TO 3CALL INVERTRECT(VARPTR(R( ! )})): 
FOR D=0 TO 50 NEXT NEXT U=L*S V=M*SON N GOTO 1370, 
1410,1440,1t480,1510,1610,1650,920, 680 

1300 £ffacer forme 

1310 GOSUB 21S06O0SUB 18S0:CALL MOVETO( 124,124}. 
PRINT WV ‘effacer ‘" GOSUB 1920:60SUB 2070 

1320 IF D THEN 1340 ELSE PUT(108,92),M,PSET 
LINE(S,S)-(S*L+S,S#M+S), 30,BF 
LINE(362,7)-(454,89),30,BF FOR 1=3 TO 218-A(1)=O:NEXT 
IF F THEN GOSUB 1830 

1330 GOTO 1180 

1340 PUT(108,92),M,PSET 

1350 IF MOUSE(0)<O THEN 1350 ELSE 1180 

1360 ‘Ajouter ligne 

1370 GET(3,V+1)-(U+9,V+ 7), MPUT(3,V+6),M,PSET. 
LINE(S,V+6)-(U+S,V+10),30,BF:LINE(S, V+ 1 3)-(U+9,V+13): 
CALL MOVETO(342, 156):PRINT "2 Supprimer ligne” 

1380 M=M+ 1:1F F THEN LINE(S, V+ 10)-(U+S,V+ 10): 
FOR 1=1 TO L+ILINE(#S ,V+S)-(1#S Ve TO)-NEXT 

1390 GOTO ! 140 

+400 ‘Supprimer ligne 

1410 LINE(376,20:M)-(439,20+M),30GET(376,21)-(439,74),A: 
GET(3,V+6)-(U+9,V+7),MPUT(3,V+1),M,PSETGOSUB 1790 

1420 R(1)=V+3:R(2)=3:R(3)=R(1)+6:R(4)=-330: 
CALL FILLRECT(VARPTRER(1 }}, VARPTR(P(1))}): 
LINE(S, V+ 3)-(U+9, V+ 3): M»M-T:CALL MOVETO(342,1 40): 
PRINT “| Ajouter ligne GOTO | 160 

1430 ‘Ajouter colonne 

1440 GET(U+ 1,3)-(U+7,V+8),MPUT(U+6,3),M,PSET 
LINE(U+6,S)-(U+ 10, V+S),30,BF CALL PENSIZE(2,2): 
LINE(U+ 1 3,4)-(U+ 1 3,V+7).CALL PENNORMAL.: 
CALL MOVETO(342, 1 88):PRINT “4 Supprimer colonne” 

1450 L=L+1:1F F THEN LINE(U+10,5)-(U+10,V+S): 
FOR 1=1 TO M+1.LINE(U+S,1#S)-{U+10,1*S).NEXT 

1460 GOTO 1 1SC 

1470 ‘Supprimer colonne 

1480 LINE(37S+L,21)-(37S+L, 74),30GET(376,21)-(439,74),A: 
GET(U+6,3)-(U+ 7,V+8),MPUT(U+ 1,3), MPSET GOSUB 1 790: 
R(1)=3:R(2)=U+ ZR(3)2V+9 R(4)=R(2)+ 10 

1490 CALL FILLRECT(VARPTR(R(1 )}, VARPTR(P(1))): 
CALL PENSIZE(2,2):LINE(U+3,4)-(U+3,V+7):L=L- 1: 
CALL MOVETO(342,172):PRINT 3 Ajouter colonne”: 
CALL PENNORMAL.GOTO 1170 

1500 Imprimer forme 

1510 GOSUB 2150:GQSUB 18S0:CALL MOVETO(1 24,124): 
PRINT WV ‘imprimer ?° GOSUB 1920:GOSUB 2070 

1520 IF D THEN 1340 ELSE PUT(108,92),M,PSET 

1530 CALL SETCURSOR(VARPTR(D(1))):P=328:Q=21 4:R=-4B8: 
S=262:60SU8 1 8S0.CALL MOVETO(333,241):PRINT 
"Impression." P=3:0=PR=L%S+7S2M*S+7-W1s"F0000": 
LPRINT CHR$(24);: GOSUB t880 

1540 LPRINT CHR$(24) CHR$(31) "1° P-358Q0-3:R-4S8:S=93. 
GOSUB 1880 

1550 LPRINT CHR${31);"1";CHR$(24);.CHR$(27);"c";: 
O={L+1S)\16:P=1: R=1 W="O0O":LPRINT ‘largeur :";L; 
”/ hauteur :”,M; 4+M#2#{(L+15)\16);"octets":LPRINT 

1560 FOR I=1 TO I4FOR J=1 TOO:IFR=1 AND P>1 THENQ=D+S 
ELSE OP 

1570 LPRINT TAB(Q),USING "######":A((1-1)#4+/J+2); 
Y=HEXS(A((I-1)"4+J+2)):X=°$"+LEFT$(W,4-LEN(Y))+Y: 
LPRINT TAB(Q+7),X.R=R:+ 1 

1580 IF R=33 THEN Rr1:P=P+ 1 4LPRINT CHR$(27) "r" CHR$(31) 
2" CHR$(31) “?" CHR$(31) "2° CHR$(27) °c”; 
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1590 NEXTNEXT.PUT(328,214),M,PSET: 
CALL SETCURSOR(VARPTR(C(1))):GOTO 1 180 

1600 Enregistrer forme 

1610 GOSUB 2150:60SUB 1850 

1620 GOSUB 19S0:IF A THEN 1340 ELSE OPEN "9”,1,2,6: 
PRINT #{,L,MO={L+1S)\I6:FOR 1=1 TO MFOR J=1 TOO: 
PRINT #1,A((1-1)%4+J+2)}NEXT NEXT:CLOSE 

1630 OPEN “clip:" FOR OUTPUT AS 1 LEN=6: 
PRINT #1,4+M#2#({L+15)\16); "octets" CLOSE:GOTO 1 340 

1640 Grille forme 

1650 IF F THENF=O ELSE F=1 

1660 GOSUB 18 30GOTO 1180 

1670 Décaler 

1680 CALL INITCURSORP=2370Q=80R=434:5=272:GOSUB 1850: 
PUT(391,99),I 

1690 IF MOUSE(O)<>-1 THEN 1690 ELSE P=MOUSE(1 ): 
Q=MOUSE(2):1F P<386 OR P>418 OR Q<96 OR Q>25S THEN 
1690 ELSE N=(0-96)\32 

1700 R(1)=297+32*NR(2)=387 R(3)2R(1)+31 R(4)=418: 
FOR 1=0 TO 3.CALL INVERTRECT(VARPTR(R(1))): 
FOR D=0 TO 20:NEXTNEXT: 
ON N GOTO 1730,1740,17S0,1760 

1710 P-3760-22 

1720 GOSUB 2t90.G0T0 1690 

1730 P=377:0=21.GOTO 1720 

17 40 PUT(370,80),M,PSET.GOSUB 21 70: 
CALL SETCURSOR(VARPTR(C(1)):GOTO 1350 

1750 P=37S.Q=21:GOTO 1720 

1760 P=2376 Q0=20:GOTO 720 

1770 'Sous-programmes 

1780 'Backpat/Penpat 

1790 FOR 1=1 TO 4-P(1)}»=&HSSAANEXT-RETURN 

1800 'Grtlle curseur 

1810 C=-30 OR F:FOR 1*28 TO 180 STEP 1S2: 
FOR J=1 TO 1+128 STEP 8:LINE(J,60)-(J, 18B),C:NEXT: 
FOR J=60 TO 188 STEP 8:LINE(I,J)-(1+128,J),C:NEXT: 
NEXT:RETURN 

1820 ‘Grilte forme 

1830 C=30 OR F.J=L#S+S:K=M#S+5.FOR 15 TO J STEP S: 
LINE(I,5)-(1,K),C:NEXT:FOR 1=5 TO K STEP S: 
LINE(S, 1)-(J, 1),C:NEXT:RETURN 

1840 Cadre message 

1850 GET(P,0Q)-(R,S),M 

1860 LINE(P,0)-(R,5),30,8F:LINE(P,0)-(R,S),,B: 
CALL PENSIZE(2,2)YLINE(P+2,0+2)-(R-2,S-2),,6: 
CALL PENNORMAL:RETURN 

1870 ‘impression 

1880 LPRINT CHR${(27) ">" CHR$(27) “n° CHR${(27) TI 4 ;: 
Wa=STRS$(R-P+1 ):Y=SPACES(4-LEN(W)}+W:0=S-Q+ 1:T=0\7- 
IF O 00 7 THEN T=T+1 

1890 FOR I=1 TOT.W=""FOR J=P TO RN=0O:FOR K=0 TO 6: 
O=(1-t)=7+K+Q:1F 0>S THEN 1900 ELSE IF POINT(J,0) AND 
1 THEN N=N OR H(1S-K) 

1900 NEXT.W=W+CHRS$(N):NEXT.LPRINT CHR$(27) WI CHR$(27) 
6" Y WNEXT:RETURN 

1910'OK/Annüler 

1920 CALL MOVETO(228,1S6).PRINT “OK”: 
CALL MOVETO(308, 1S6).PRINT “Annuler ":R(1)=140: 
R(2)=196.R(3)=164:R(4)-276: 
CALL FRAMEROUNDRECT(VARPTR(R(1 )}, 12,12) 

1930 R(2)=292:R(4)=372: 
CALL FRAMEROUNDRECT(VARPTR(R(1)), 12,12): 
CALL PENSIZE(2,2)R(1)2136:R(2)=192:R(3 }= 168: 
R(4)=280:CALL FRAMEROUNDRECT(VARPTR(R(1 )),20,20): 
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CALL PENNORMAL.RETURN 

1940 ‘'Saiste nom fichier 

19S0 CALL MOVETO(124, 124):PRINT “Nom du fichier ?” 
CALL MOVETO(308, 124):PRINT *Annuier “R(1)=108 
R(2)=292-R(3)=132:R(4)2372: 
CALL FRAMEROUNDRECT(VARPTR(R(1)), 12,12): 
LINE(116,140)-(380,164),,B 

1960 E(1)=1:E(2)=16:FOR 1=3 TO 18.E(1)#-1:NEXT: 
CALL TEXTFONT(4)FOR 1=1 TO 4:P(I)=ONEXT 
CALL BACKPAT(VARPTR(P(I })):C=LEN(Z) 

1970 CALL MOVETO(124, 1S6) PRINT 2; 

1980 X=INKEYS$ IF X°” THEN 2000 ELSE IF MOUSE(O)-1 THEN 
A=A+l:IF A<30 THEN 1980 ELSE 
PUT((POS(1)*7)-3,144),E A=O:GOTO 1980 

1990 P=MOUSE(1)Q="FOUSE(2)1F P<292 OR P>371 OR Q<108 OR 
0>131 THEN 1980 ELSE A=! CALL TEKTFONT(O)-RETURN 

2000 IF X=CHR$(13) THEN A=0 CALL TEXTFONT(O):RETURN ELSE 
FF X=CHR$(8) THEN 1F C=0 THEN 1980 ELSE C=C-1 
ZeLEFTS$(Z,C)LINECI17,141)-(379,163),30,BF-GOTO 1970 

2010 IF C=36 THEN 1980 ELSE 
PUT({POS(1)*#7)-3,144),E,PRESET PRINT X;:2=2+X C=C: 1 
GOTO 1980 

2020 X=INKEYS$.IF XC°" THEN 2040 ELSE IF MOUSE(O)-1 THEN 
2020 

2030 P=MOUSE( 1): Q=MOUSE(2)IF P<292 OR P>371 OR Q+1 49 OR 
0>163 THEN 2020 ELSE 2050 

2040 IF ASC(X)0 13 AND ASC(X)©3 THEN 2020 

2050 P=108:Q=92-6GOSUB | 860: RETURN 

2060 Saiste OK/Annuier 

2070 W=INKEYS.IF WQ"7 THEN 2100 ELSE IF MOUSE(0)o-1 
THEN 2070 

2080 P=MOUSE( 1) Q=''OUSE(2) IF Q<140 OR Q> 163 THEN 2070 

2090 IF P>19S AND P<276 THEN D=0:GOTO 2 110 ELSE IF P>291 
AND P<372 THEN D +1 GOTO 21 10 ELSE 2070 


54, rue de Dunkerque 
75009 PARIS Tél: 282.17.09 
Métro: Gare du Nord (100 m) 


Diskettes U.S 5"1/4 SF/SD 
Diskettes 5”1/4 SF/DD 
Lecteur diskettes pour APPLE 
{mécon. Japonais, entr. direct) 
Carte synthétiseur de voix 

Corte mémoire/langage 16 K Rom 
Corte mémoire 128 K 

Carte drive 13/16 sect. 

Carte 80 colonnes 

Carte impn'mante parallèle 
Carte impn'mante + Buffer 32 K 
Carte série 

Carte super série 

Carte Z80 - CP/M 

Joystick de luxe 2 +, 2E, 2C 


Port Urgent ajouter 5,50 F 


2100 IF ASC(W)O 13 AND ASC(W)03 THEN 2070 ELSE D=0 

2110 RETURN 

2120 Caractères estompés 

2130 GOSUB 179O0-CALL PENPAT(VARPTR(P(1 ))}: 
CALL PENMODE (-1):R(2)=338 R(S)=R(1)+1S R(4)=479,. 
CALL PAINTRECT(VARPTR(R(1))): 
CALL PENNORMAL:RETURN 

2140 ‘Coordonnées cadre message 

2150 P=108:0=92R=388:S=1 80:RETURN 

2160 Curseur 

2170 RESTORE SOFOR I=1 TO 13 READ C(I):NEXT. 
FOR I1=14 TO 32:C(I)=ONEXT.C(33)=6.C(34)=6:RETURN 

2180 Décalage 

2190 GET(P,Q)-(P+L-1,Q0+M-1),0 PUT(376,21),0,PSET. 
PUT(S,S)-(L*S +4,M#S+4),0,PSET 
GET(376,21)-(439,74),A:GOSUB 1830:RETURN 

2200 ‘Erreurs 

2210 CLOSEGOSUB 1860.CALL MOVETO(324,156):PRINT “OK” 
R(1)=140R(2)°292R(3}»164R(4)-372: 
CALL FRAMEROUNDRECT(VARPTRIR(1)i,12, 12): 
CALL MOVETO(124,124) 

2220 IF ERR=74 THEN PRINT “Volume inconnu !"GOTO 2290 

2230 IF ERR=64 THEN PRINT ‘Nom incorrect !”’GOTO 2290 

2240 |F ERR=61 THEN PRINT “Disquette saturée !” GOTO 2290 

2250 1F ERR=70 THEN PRINT ‘Disquette protégée !"GOTO 2290 

2260 IF ERL=390 OR ERL=t090 OR ERL=1 100 THEN PRINT 
“Lecture impossible !"GOTO 2280 

2270 IF ERR=953 THEN PRINT ‘Fichier introuvable !” 

2280 GOSUB 2020:F ERL=380 OR ERL=390 THEN RESUME 380 
ELSE RESUFÆ 1080 

2290 GOSUB 2020/F ERL=660 THEN RESUME 660 ELSE IF 
ERL=380 THEN RESUI 380 ELSE IF ERL=1620 THEN 
RESUME 1620 ELSE RESUME 1080 


SURPRIS .….. LES PRIX!!! 


PRIX T.T.C.! POUR APPLE ET COMPATIBLES 


139 F/boîte 10 (exp. min. 5 boîtes Port 27 F) 
170 F/boîte 10 (exp. min. 5 boîtes Port 27 F) 


Carte wilcard (déplombage) 
Carte communication 

Carte IEEE- 488 

Carte copieur Eprom 

Carte A/D - D/A 12 bit 
Carte horloge 





Carte musique 

Carte RGB + Prise TV Secam 
Carte 6522 Via 

Port pour une corte 

Ventilo 10 W. super silencieux 


NOUVEAU: Pince spéciale pourdiskettes (100000 trous min.) (port : 13 F) 69 F 
Ordinateur multicompotible Forth, Basic, CP/M, MS-Dos, CP/M86 


Écrivez, nous vous enverrons une liste plus complète de nos articles. 


Notre devise : ‘’DYNAMIT COMPUTER : 


Revendeurs, contactez-nous. 


MOINS CHER QUE MOI TU MEURS !‘’ 
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1/85 
06/84 
08/84 
t1/64 

12/84 
10/84 


10/84 
10/84 
10/84 
10/84 
06/64 
10/84 
10/64 
10/84 
11/84 
07/84 
11/84 


07/84 | 


11/84 
10/84 


06/84 


11/64 | 
09/84 


09/64 


11/84 | 


51/84 
11/84 
11/84 
11/84 


11/84 


08/84 
09/84 
1t/84 
11/84 
10/84 
t1/84 


09/64 | 


09/84 
09/84 
09/64 
10/84 


11/84 


11/84 | 


12/84 
10/84 


| Logiciels Distributeur 
— - — —<+- 
| 1! Prologil Prologia 
| | Basic Microsoft Microsoft France 
| Mac Forth Feeder 
| Macintosh Pascal | Apple 
Macintosh Basic Apple 
Pascai UCSD Bus 
| 2! FileVision Apple 
CX MacBase Controle X 
File Microsoft France 
Overvue Apple 
AD MacFichier Answare 
ABCbase A.C.. 
MacStock M:C:S: 
PfsFile/Report Sonotec 
Mactedger Logiciel P.C. 
MacCash Logiciel P.C. 
| Minifact Idées informatique 
3! Thinktank Gamic 
| Mega Merge Feeder 
| Word Microsoft France 
4l Parts Création A.C.I. 
| MacCrypt CERIA. 
| PolyFiche Polygone 
| Mac agende Gamic 
5! Mac Terminal | Apple 
Telemac | Mediatec 
| Telemac | Mediatec 
Mac Tell | Mello 
Macphone CER.LA. 
6| Mac Space ASA. 
| Mac Graph MES: 
Chart Microsoft France 
a ——————{—_— 
7| Agatha CD soft 
MacDent Dag informatique 
MacDoc C.M.G 
| DoctorMac JSR Informetique 
| Transfu l'A 8.0 Transfu labo-serv. 
| MacPherm tnpharmez 
6| MacJack Answare 
MacSlots | Feeder 
Jeux de mots Hello 
Sargon lil Sonotec 
| MacManager Feeder 
| Reversi | RC.1 informatique 
| Boule de silicium Hyperlog 
Run for the money | Feeder 
Mac Puzzle | Feeder 
Transylvania | Feeder 
Le compte est bon | Polygone 
| 
9! MacProject Apple 
MacExpert Answare 
Slide ! SL.i. Réalisations 
| Da Vinci Gamic 
6 - graphisme. 7 - médecine. 8 - jeux. 9 - divers. 
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| 
| 











Prix TTC 


NC 


1694.00 | 
MFI:1589,00 


1306.00 


1430,00 | 
7000,00 | 


2360.00 
2953,00 
2396.00 
4150,00 
2360,00 
3320,00 
1779,00 
2711.00 
NC 
2609,00 
NC 


1957.00 
NC 
2336,00 


390,00 
NC 

790,00 

1174,00 


990.00 | 


NC 
NC 
NC 
NC 


NC 
NC 
1411,00 


499,00 
824,00 

NC 

NC 
700,00 

NC 
475,00 
593,00 
522.00 
540,00 
295,00 


1400,00 
NC 
NC 
889 







Langege d'intelligence artificielle 
Le plus répendu 

Trois versions 

Pascal interprété 

Basic pescalien 

Pascal compilé 


Les informations en images 
intègre calcuis, graphisme, texte. 
Structure des fiches veriable 
Tri multi-critères 

Main street file en français 
Expression multiforme 
Gestion de stocks 

Organisez votre système 
Comptabilité 

Livre de caisse 

Facturation simplifiée. 


Traitement d'idées 
Personnalisation per ie dessin 
Sur l'imprimante comme à l'écran 


Adresses 
Fichiers codés 
Carnet d'adresses 
Emploi du temps 


EmutationTTY, DEC, VT100... 
Emuletion IBM 3270 | 
Emulation minitei 

Minitel inteHigent 

Composeur tétéphonique 













Graphisme en trois dimensions 
Décisionnel graphique 
Représentation graphique 

















Gestion d'un cabinet dentaire 
Gestion d'un cabinet dentaire 
Pour médecins généralistes 
Données médicales 
Laboratoires d'anelyses médicales 
Gestion d'une pharmacie 












BlackJack 
Deux jeux différents 

Réservé aux enfants 

Echecs. 9 niveaux de complexité 
Jeu de rôle 

Stratégte 

Votre autoportrait 

Aventure 













Aventure 
Jeu télévisé 






Ptanificatlondes projets 
Système expert 

Plans d'architecture 
Bibliothèques de dessins 







? - langages. 2 - gestion et comptabilite.3 - traitement de textes. 4 - orgamsation. 5 - communication. 
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Omnis 2 à l’essai 


Guy Lapautre 


Cet essai a été réalisé sur un Apple 
le muni de deux lecteurs de disques 
souples. Notre impression générale 
sur ce logiciel de gestion de fichiers 
tient en deux mots: PUISSANT - 
COMPLEXE. 


Premier contact 


Enfin un bon Guide 
Pédagogique ! 


Ne parlons pas de ses qualités péda- 
gogiques proprement dites. on a déjà 
fait mieux: il manque en particulier 
certains fac simile d'écran. Mais il sé- 
pare TRES NETTEMENT l'essentiel 
(décrit dans un guide pédagogique 
simplifié), les options ou fonctionnali- 
tés plus complexes (réunies dans un 
guide pédagogique avancé) et les dé- 
tails supplémentaires d'usage moins 
courant {mentionnés seulement dans 
le manuel de référence). Exemple 
dont beaucoup pourraient s'inspirer. 


De nombreux logiciels proposent au- 
jourd'hui une disquette “Tutorial” 
pour les tous premiers pas. Compte 
tenu de la complexité d'Omnis 2. sur 
laquelle nous reviendrons. cette solu- 
tion aurait peut-être pu être retenue. 


Les disques 


Regrettons une ambiguité dès le dé- 
part après avoir montré le danger 
de travailler avec les disques origi- 
naux, on explique comment faire des 
copies des disques Program et Utili- 
ties (au passage pourquoi pas Pro- 
gramme et Utilitaires 2]. Mais on ex- 
plique aussi que le disque Boot ou 
System (même remarque) suscepti- 
ble pourtant des mêmes avanies que 
les autres, n’est pas copiable. Il y a là 
de quoi perturber grandement un 
néophyte Ce nest que beaucoup 
plus tard. en abordant la lecture du 
Manuel de Référence. quon est 
avisé d'avoir à commander au four- 
nisseur un double de ce disque 


Les disques sont comme nous 
venons de le voir. au nombre de 
trois Chaque application. si minime 
soit-elle. nécessite de son côté deux 
disques la ‘librairie’ (les explica 
tons concernant la dénomination de 
ce disque ne sont pas très convain- 
cantes) et le disque ‘data’ (données 
ne serait pas plus mal) 


Donc. aucun travail possible sans un 
mirumum de cinq disques avec les- 
quels on doit Jongler dans deux lec- 
teurs De quoi décourager compléte- 
ment un débutant Comprenons bien 


que ce n'est pas une critique du logi- 
ciel. mais de la façon dont les choses 
sont présentées. La complexité est la 
rancon de la puissance, et on peut 
dire qu'Omnis 2 n'est pas fait pour 
être utilisé normalement par un ama- 
teur sur une configuration Apple /'e 
avec deux disques souples. On peut 
pourtant lire dans le guide pédagogji- 
que {leçon 1): “Ce Guide Pédagogi- 
que part de l'hypothèse que vous 
n'avez pas ou peu d'expérience 
quant à l'utilisation d'un micro-ordi- 
nateur'. 

Dans cette hypothèse. l'opinion de 
l'auteur de ces lignes (qui n'engage 
aue lui) est : abstenez-vous de débu- 
ter avec Omnis 2. et commencez par 
vous familiariser avec la micro-infor- 
matique en utilisant un logiciel moins 
performant, mais plus simple 


Les commandes principales 


Elles utilisent de façon systématique 
la touche “ESCAPE”". La mode ac- 
tuelle est plutôt d'utiliser les touches 
"POMME”. Ne prenons pas parti 
Les touches “"POMME®" présentent 
l'avantage. étant non classiques. de 
servir assez normalement à tout ce 
qui nest pas entrée de données. 
Mais elles sont spécifiques des ver- 
sions //e et //c. et d'autres comman- 
des doivent bien être adoptées pour 
les versions antérieures de l'Apple ff. 


Îl n'existe pas de commande (ou du 
moins n'en avons nous pas rencon- 
trée) dont on ne puisse pas sortir si 
on y est entré par mégarde. Voilà qui 
est rassurant. Seule la frappe inop- 
portune de ‘Q dans le menu ‘sys- 
tem peut renvoyer hors du pro- 
gramme Ce nest pas bien grave. 
aucune donnée n'étant alors perdue 


La création d’une 
structure de fichier 


La puissance 


On peut à peu près tout faire dans 
ce domaine. qu'il s'agisse : 


e de la présentation des écrans. 

e de la définition des rubriques: 

e des nombreuses options de format 
qui leur sont associées. 

e des modes de contréle des en- 
trées: 

e de la définition des rubriques cal- 
culées 


On peut aussi (alors que c'est un 
point faible de nombreux logiciels de 
gestion de fichiers). modifier la sruc- 
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ture de fichiers existants sans perte 
d'informations. Au prix toutefois de 
nombreuses ‘jongleries” avec les dis- 
ques. 


Regrettons seulement : 


— la limitation à une ligne de l'en- 
semble nom d'écran + contenu: 

— la limitation à 7 caractères du nom 
de rubrique. 


La complexité 


La ligne de commandes n'est pas 
très simple à interpréter et le recours 
à l'écran SOS. relativement fré- 
quent. 


Mais surtout. TOUTES les caractéris- 
tiques des rubriques sont à entrer 
sous forme de codes à un caractère 
sauf la longueur}. Les ‘assez classi- 
ques” C pour caractères ou N pour 
numériques sont simples à interpré- 
ter. Mais { ou J pour les index selon 
leur nature. les codes de protection. 
de calcul... sont pratiquement im- 
possibles à retenir par coeur. 





Il nest par exemple pas évident que 
l'attribut : 

+N2VE 

concerne une rubrique calculée. nu- 
mérique, 2 décimales, acceptant des 
valeurs négatives et réputée vide si la 
valeur calculée est égale à O (exem- 
ple du manuel de référence) ! 


Les formules de calculs et de vérifica- 
tion (très précieuses certes) utilisent 
de nombreuses fonctions qu'on ne 
trouve qu'en programmation Par 
exemple LEN(..) pour le nombre de 
caractères d'une chaîne où CON. } 
pour une concaténation de chaînes. 
ou encore une formulation d'algèbre 
logique très particulière utilisant les 
signes ! et &. et ceci dès la leçon 4 
du guide pédagogique simplifié ! A 
noter que. dans d'autres cas. on em- 
ploie OÙ et ET en toutes lettres... 


La gestion de fichiers 
La puissance 


La multiplicité des détails utilisables 

dans là création des structures per- 

met de nombreux contrôles au ni- 

veau de la saisie. Le logiciel permet 

par exemple 

e de ne pas entrer deux fois le 
même numéro de code, si celui-ci 
doit être unique: 

e de contrôler qu'on entre bien Mr. 
Mme ou Mlle et rien d'autre: 

e de vérifier qu'un code postal 
comporte 5 chiffres (ni 4 ni 6): 
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dletel 


un modem qui fait, d'un simple Apple, un Minitel intelligent 


Appels comprend : 





oe]ja 













SIAUL }L ] : C \ : L ° 
IMPRESSION : fimprmante de votre Apple est JO entre le mond2 e) et les outil 
pour sortir les copies - papier dont vous avez beso sc standards de votre App Dple lincorpora tion des données 
vous consultez un serveur dans Apple-wriler Visicalc. Multiplan, PFS, Quick-File, etc , et 
STOCKAGE : kes « je votre sont utilisees même dans pps ons F > ( Lo tabiité de 
















ation locaie 
AUTOMATISME : ‘Tinte ence de : 
Apple est moblisée pour accomplir 
l'interrogation automatique du serveur 
que vous lu avez désigné (appel 


plex).390 (tull-duple 






(cette caractéristique uñique 
rend accessibles tes serveurs 
nord- améric ains, ÿ COMPTrIS 





Metz 
PARIS 








° Transparenc ser ATTESSE. + asser depee ns 


V8 sssstssttasidmsie ail 


HELLO Informatique ! 





bites = ET 


La 
A 


LEP 


e de choisir l'ordre d'entrée des ru- 
briques (et pas forcément celui de 
leur apparition sur l'écran) 


Attention d'avoir sous la main une 
liste des contrôles effectués. sous 
peine de courir le risque de ne 
jamais remplir une fiche. par exem- 
ple en sentêtant a mettre M pour 
Monsieur au lieu de Mr 


Très nombreuses possibilités égale- 
ment dans le domaine de la recher- 
che. du tri, de la sélection Possibili- 
tés fort intéressantes de mise à jour 
et de suppression multiple. de reco- 
pie de données d'un enregistrement 
sur un autre Très utile fonction de 
“hardcopie d'écran. etc 


La complexité 


Elle est moins grande dans l'exploita- 
tion que dans la création Notons 
toutefois le même ésotérisme de la 
ligne de commande. 


L'utilisation des formats de recherche 
nest pas toujours évidente. Remar 
quons au passage que les signes ‘<' 
et ‘> veulent dire tantôt strictement 
plus petit (ou plus grandi. tantôt infé- 
rieur (ou supérieur) ou égal ! 
Exemple (du guide pédagogique 
avancé) pour un format de mise à 
jour multiple 


INBCLE = UPP { CON ( MID 
(NOM. 1. 3). INITS)) 


Si ce n'est pas de la programmation. 
qu est-ce que c'est ? 


Les états 


On pourrait à ce sujet faire les 
mêmes types de remarques que dans 
les paragraphes précédents. tant pour 
là puissance que pour la complexité. 
Ne lassons pas le lecteur et conten- 
tons-nous de deux remarques impor- 
tantes : 


Puissance : outre les classiques pro- 
ductions d'états et d'étiquettes. 
Omnis 2 possède un système très as- 
tucieux de production de lettres per- 
sonnalisées 


Complexité les codes de contrôle 
d'imprimante tels que le nombre de 
caractères par pouce. le souligne- 
ment... étant inclus dans la définition 
de l'état, un changement d'impri- 
mante nécessite une révision 
complète de toutes les structures 
d'états qui ont été définies (seules les 
options générales telles que longueur 
de la ligne, nombre de lignes par 
page... sont traitées à part). 


Les mots de passe 


Un système mgénieux et très complet 
de clés d'accès à 4 niveaux (plus le 
Maître. qui dit bien son nom...) peut 
être mis en place. 


La définition de ce qui est autorisé 
ou interdit à chacun est assez sirnple. 
mais longue à mettre en oeuvre. ne 
serait-ce que parce quon descend 
(ce qui est parfois précieux) au ni 
veau de la rubrique élémentaire. en 
lecture et en écriture 


Quand Fensemble est créé. son utili 
sation ne pose aucun problème 


Les utilitaires 


Ils sont très complets. méme s'ils ne 
sont pas toujours très simples à utili- 
ser: nous avons déjà évoqué ce pro- 
blème à propos de la modification de 
structure des fichiers 


Ils permettent outre les classiques 
copies. destructions. initialisations. 
compactages. … , de faire communi- 
quer Omnis 2 avec d'autres logiciels 
par l'intermédiaire de fichiers au for- 
mat BIF, et ce dans les deux sens 
Un autre utilitaire permet des conver- 
sions entre Pascal et le DOS 33. 


Capacité et 
performances 


Seules limites de capacité rencon- 
trées: ce sont celles de l'Apple e 
avec deux disquettes: en fait. un dis- 
que dur s'impose 

Que faire par exemple. avec cette 
pauvre configuration, de 131068 
blocs par fichier ou de 9600 rubri- 
ques dans un format d'état ? 


Seule limitation inhérente au logiciel. 
déja signalée 79 caractères par ru- 
brique (4 compris, le cas échéant. le 
‘nom d'écran‘). 


Ne disposant que d'une version ‘“bri- 
dée' au niveau de 50 enregistre- 
ments, nous n'avons pu faire aucun 
essai de performances sur gros fi- 
chier Il semble que les recherches de 
tupe T (sur rubriques indexées). 
soient toujours très rapides. alors que 
les tris et les recherches de type R ne 
le soient guère. même pour des fi- 
chiers relativement modestes : pour 
50 enregistrements, un tri ou une re- 
cherche simple durent environ 40 se- 
condes. 


Synthèse 


Nous avons écrit en exergue : PUIS- 
SANT - COMPLEXE. 


Les fonctions de création 


Création de structure de fichiers. for- 
mats d'états. mots de passe. sont to- 
talement hors de portée de l'utilisa- 
teur débutant Méme s'agissant d'un 
utilisateur confirmé de micro-informa- 
tique. il n'est pas évident qu'il ny ait 
jamais de blocages. au niveau dune 
codification très poussée. ou de l'uti- 
lisation de lalgèbre logique ou de 
véritables éléments de programma 
tion. 


Mais celui qui aura la capacité (et le 
courage) d'aller jusqu'au bout sera 
récompensé par des perfonmances 
exceptionnelles. surtout avec une 
configuration musclée” 


Les fonctions de gestion 


La gestion de fichier et l'édition 
d'états sont plus accessibles. movyen- 
nant deux précautions dès lors qu'il 
s’agit de néophytes 

1 - Limiter leur travail aux cas où 
TOUS les paramètres sont bien défi- 
nis. V compris tns et sélections. et 
aux options fondamentales de ges- 
tion, en excluant la mise au point de 
tableaux de sélection par exemple. 


2 - Les munir d'une documentation 
synthétique, d'une part sur les 
commandes du logiciel qu'ils devront 
utiliser. d'autre part sur la codification 
adoptée (ceci nest pas spécial à 
Omnis. mais d'autant plus important 
que les contrôles sont nombreux et 
sophistiqués). 


Nous sommes plus réservés sur la 
possibilité de faire mettre en oeuvre 
par nimporte qui les fonctions de 
gestion de disque, v compris les sau- 
vegardes. 


En résumé 


Un logiciel de tout premier plan. 
mieux adapté à une configuration 
comportant un disque dur. capable 
de satisfaire les plus exigeants et de 
constituer un outil complet pour une 
application dont la gestion de fichier 
constitue l'essentiel. 


Mais un logiciel à ne pas mettre entre 
toutes les mains. Ce n'est pas un re- 
proche : on peut mettre entre toutes 
les mains (ou à peu près...) une voi- 
ture de série, mais pas une formule 1 
ni un 60 tonnes Saharien. Le repro- 
che irait au fait que la documentation 
(et aussi la publicité) tendent à mini- 
miser exagérément ce fait 


Ne Soyez pas un “A : Si Vous possédez un é, lisez 
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Ce cinquième article marquera la fin 
de notre revue de détail des instruc- 
tions de l'assembleur du processeur 
6502 qui équipe votre Apple Il+ ou 
e 

Comme dans tout feuilleton moderne 
qui se respecte. nous aurons droit à 
quelques ‘flash-backs” sur des élé- 
ments importants de la vie du héros. 
la pile et le registre d'état en l'occur- 
rence. dont nous avons jusqu'à pré- 
sent laissé certains aspects dans l'om- 
bre Le dictionnaire étant ainsi 
complété. vous pourrez désormais 
parler le 6502" couramment... 


Les interruptions et Île 
BREAK 


Lorsque nous avons abordé le regis- 
tre d'état du microprocesseur dans le 
Pom's 13. certains indicateurs n’ont 
fait l'objet que d'une mention som- 
maire. Tel fut le cas pour le bit 2 (in- 
dicateur baptisé | comme Interrup- 
tion) et pour le bit 4 (indicateur B 
comme Break). Réparons dès main- 
tenant cette injustice 


Interruptions du 6502 


Nous devrons nous limiter sur ce 
point à un exposé quelque peu théo- 
rique. car les signaux d'interruption 
ne peuvent être envoyés simplement 
ai microprocesseur par le biais d’un 
programme. Ils viennent en effet des 
périphériques connectés à l'unité 
centrale, via les cartes d'interface et 
les “slots” qui sont reliés au proces- 
seur. En résumé, un périphérique de- 
mande ainsi au 6502 de stopper 
l'exécution du programme en cours 
et de travailler momentanément pour 
lui. afin de lui transmettre les don- 
nées dont il a besoin pour s'acquitter 
de sa propre tâche. ou de recevoir 
les données qu'il est chargé de four- 
nir à l'ordinateur. Le terme “interrup- 
tion” ne signifie donc pas que le pro- 
cesseur s'arrête, bien sûr. mais qu'il 
cesse de travailler pour l'un et se met 
au service de l'autre 


On distingue deux types d'interrup- 
tions. c'est-à-dire deux lignes reliées 
à deux broches différentes du 6502. 
les interruptions masquables {dites 
IRQ} et les interruptions non mas- 
quables. ou prioritaires (dites NM). 

Une interruption IRQ ne sera prise 
en compte par le processeur que si 
l'indicateur | (bit 2) de son registre 
d'état est à O0. En mettant cet indica- 
teur à 1. soit à parti d'un pro- 
gramme utilisateur, soit dans une 
routine d'interface d’une carte de pé- 
riphérique. on peut donc “masquer” 
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tous les signaux IRQ qu pourraient 
arriver au processeur, Jusqu à ce que 
l'on ait remis le bit | à O Par contre. 
quelle que soit ta valeur de ce bit |. 
une interruption de type NMI sera 
toujours prise en compte et provo- 
quera l'arrêt de toute autre opéra- 
tion, même s'il s'agit du travail d'un 
périphérique avant déjà interrompu 
le processeur par les lignes IRQ ou 
NMI. 


Dans un cas comme dans l'autre. 
lorsqu'arrive une interruption, le pro- 
cesseur commence par achever l'ins- 
truction en cours. Il dépose ensuite 
au sommet de la pile le contenu du 
compteur ordinal, dans l'ordre octet 
haut / octet bas (rappelons que le 
compteur ordinal est un registre sur 
16 bits qui contient toujours l'adresse 
de la prochaine instruction à exécu- 
ter), puis il empile également le regis- 
tre d'état. après en avoir mis le bit 4 
(indicateur B) à 0. 

S'il s'agit d'une IRQ]. il saute alors à 
l'adresse contenue dans les mémoi- 
res $FFFE et $FFFF (en d'autres 
termes. il charge le compteur ordinal 
avec le contenu de $FFFE-$FFFF). 
Si c'est une NMI. en revanche. il 
saute à ladresse contenue en 
$FFFA-$FFFR. 

Notons bien que ces opérations sont 
programmées dans le processeur. 
c'est-à-dire que, quel que soit l'ordi- 
nateur étudié. le début du traitement 
d'une interruption sera celui indiqué 
ci-dessus si c'est un ordinateur cons- 
truit autour d’un 6582. Ce qui se 
passe ensuite dépend par contre de 
ce que les concepteurs de la machine 
ont mis aux adresses $FFFE-$FFFF 
et $FFFA-$FFFB. 


En ce qui concerne les Apple Il+ et 
lie, on trouve en $FFFE-$FFEE les 
valeurs ‘40 FA”. Une IRQ branche 
donc finalement sur une routine dé- 
butant en $FA4O. sur laquelle nous 
reviendrons un peu plus loin. 

En $FFFA-$FFFB, on lit "FB 03" et 
une NMI nous amènera donc en 
$3FB. Si vous mettez votre Apple 
sous tension sans charger le DOS, 
vous ne trouverez rien de significatif 
à cette adresse. mais si vous ‘boo- 
tez” le DOS. vous y trouverez ‘4C 
65 FF” ou encore ‘JMP $FF65", 
c'est-à-dire un saut dans le moniteur. 
C'est évidemment au programmeur 
de périphériques qui entend utiliser 
les interruptions NM] qu'il appartient 
en fait de mettre aux adresses $3FB- 
$3FC-$3FD un JMP à l'adresse de 
sa routine de gestion des interrup- 
tions. 


PLELE 


..—- 
Elivérisse) 








Initiation à l’assembleur (5) 


Gérard Michel 


Instructions de l’assembieur 
liées aux interruptions 


e SEI (78): met l'indicateur 1 à 1 
Les interruptions IRQ qui pourraient 
arriver après l'exécution de SEÏ se- 
ront donc masquées et ignorées. 
Ceci peut servir pour garder la prio- 
rité dans l'utilisation des ressources 
du microprocesseur (sauf en cas d'in- 
terruption NM] toutefois}, que ce soit 
pour un programme utilisateur ou 
pour le travail d'un périphérique 
donné. Dans une routine de gestion 
des interruptions destinée aux divers 
périphériques, en particulier, l'emploi 
de SE] permet de sauvegarder les re- 
gistres non directement empilés par 
le processeur (accumulateur et regis- 
tres X et Y) ou de modifier éventuel- 
lement le vecteur IRQ (voir plus 
loin), sans craindre l'arrvée et la 
prise en compte d'une nouvelle inter- 
ruption qui letterait la confusion dans 
le système 

En effet, après l'exécution des routi- 
nes de service du périphérique avant 
demandé l'interruption. on doit pou- 
voir reprendre le programme inter- 
rompu exactement à l'endroit où il a 
été stoppé et dans le même contexte. 
ce qui suppose que l'on puisse bien 
sauvegarder tous les registres. au 
moyen de la pile notamment. afin de 
les récupérer ensuite en fin de rou- 
tine de gestion des interruptions. Un 
autre signal IRQ éventuel doit rester 
par conséquent ignoré. au moins jus- 
qu'à l'achèvement de cette sauve- 
garde. Si le signal persiste durant que 
l'indicateur | est à 1. il sera pris en 
compte à son tour dès que le ‘mas- 
que’ sera levé par l'instruction sui- 
vante. 


e CLI (58) : met à O0 l'indicateur | 
Après l'exécution de CLI. tout signal 
IRQ est pris en compte et lance un 
nouveau cycle d'interruption Rien 
n'interdit de traiter les demandes 
d'interruption d'un périphérique alors 
même que le processeur est déjà uti- 
lisé par un autre périphérique. Lors- 
que le second “rend la main”. on re- 
prend le travail du premier à l'endroit 
où il était stoppé et. lorsque celui-ci 
est également terminé. on retrouve le 
programme de départ Ce méca- 
nisme ne doit pas poser de problè- 
mes si le contexte est correctement 
sauvegardé à chaque interruption 


e RTI (40) : retour d'interruption 

L'exécution de cette instruction 
consiste pour le processeur à transfé- 
rer dans le registre d’état le sommet 
de la pile, puis à charger le compteur 


BErStT ee 
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ordinal avec les deux octets qui se 
trouvent à leur tour au sommet de la 
pile. Si l'organisation de cette der- 
nière na pas été perturbée durant le 
traitement de l'interruption. on re- 
prend donc à l'endroit (compteur or- 
dinal) où l'on se trouvait lors de la 
prise en compte de l'interruption. 
avec le même registre d'état 


Nous verrons par la suite comment la 
pile intervient dans la manipulation 
du compteur ordinal, mais, afin d'il- 
lustrer ces mécanismes, voici un 
exemple simplifié de routine de ges- 
ton des interruptions (notez bien que 
lorsqu'on arrive à cette routine. le re- 
gistre d'état et le compteur ordinal 
ont déjà été empilés par le proces- 
seur) 


SEI 
(on masque les interruptions [RQ qui 
pourraient survenir) 


TYA 

PHA 

TXA 

PHA 

(sauvegarde dans la pile des registres 
A. X et Y) 

CL! 

(les interruptions IRQ sont de nou- 
veau autorisées) 


Détermination du périphérique ayant 
provoqué interruption. en testant 
par exemple le contenu d'adresses 
affectées à chaque périphérique 
connecté 

JSR ADR 

{ADR est l'adresse de début des rou- 
tines de service du périphérique. qui 
lui permettent d'effectuer son travail 
Ces routines doivent veiller à resti- 
tuer. à l'issue de leur exécution par 
un ultime RTS. un contenu de pile 


identique à celui que l'on avait avant 
JSR ADR) 


SE] 

PLA 

TAX 

PLA 

TAY 

PLA 

(restaurah'on des registres A-X-VY. tels 
qu'ils étaient lors du début de notre 
routine de gestion des interruptions) 
CLI 

RTI 

(reprise du programme interrompu) 


Si une nouvelle interruption se pro- 
duit avant la fin du premier cycle. 
alors que l’on vient de déterminer le 
périphérique par exemple (appelons 
cela le stade SO). le processeur nous 
ramène au début de la routine ci- 
dessus et on empile le contexte de 
SG On traite ensuite la seconde in- 
terruption, puis on récupère le 
contexte de SO Le RTI nous renvoie 
à l'instruction qui suit SO et l'on re- 
prend ainsi le traitement de la pre- 
mière interruption, avant de récupé- 


rer le contexte initial et de retrouver 
un RTI qui nous reporte cette fois à 
la suite du programme de départ 


Lorsqu'une routine de ce type est 
utilisée pour gérer des interruptions 
NMI. son adresse doit être stockée 
en $3FC-$3FD S'il s'agit de gérer 
des IRQ. l'adresse doit être implantée 
en $3FE-$3FF. comme le montrera 
le paragraphe suivant 


BREAK et simulation 
d'interruptions 


L'instruction de break BRK (00) pro- 
dut des effets semblables à ceux 
d'une interruption IRQ. ce en quoi 
elle ressemble à une interruption ‘lo- 
giciel'. mais avec deux différences 


e Le processeur empile la valeur du 
compteur ordinal augmentée de 2 
{comme si l'instruction BRK occu- 
pait deux octets) 

e Le bi B du registre d'état est mis 
à 1 (alors qu'il est à O dans le cas 
d'une interruption) avant sauve- 
garde 


Ensuite, comme dans le cas d'une 
IRQ. on saute à l'adresse contenue 
en $FFFE-$FFFF. ce qui nous amène 
donc. sur un Apple II+ ou /e. à la 
routne commençant en $FA40. à 
qui il appartiendra de faire le distin- 
guo entre BRK et IRQ Cette routine 
est listée ci-dessous et nous allons en 
faire l'analyse. 


Listing 1 

FA40o- 85 45 STA #45 
FA42- 68 PLA 

FA43- 4e PHA 

FA44-  0A ASL 

FA4S- A ASL 

FAdé- DA AsSL 

FA47- 30 03 ami SFAAC 
FA49-  4C FE 03 JMP  (803FE) 
FAAC- 28 PLP 

FA4D- 20 4C FF JSR  #FF4C 
FASO- 68 PLA 

FASI- 85 3a STA  93A 
FAS3- 68 FLA 

FAS4- 85 3B STA 536 
FASG- éC F0 03 JMP (803F0) 
Ligne 1: on stocke l'accumulateur 
en $45 


Lignes 2 et 3 : on récupère dans l'ac- 
cumulateur le sommet de la pile 
(PLA). c'est-à-dire le registre d'état 
au moment du BRK ou de l'IRQ. 
puisque l'on arrive ici à l'issue du 
cycle d'interruption exécuté par le 
processeur. On ré-empile aussitôt 
cette même valeur (PHA) afin de 
préserver l'organisation de la pile. 
Lignes 4 à 6: les trois ASL amènent 
le bit 4 de l'accumulateur en position 
de bit 7. On a donc pour bit de 
poids fort. ou bit de signe. l'indica- 
teur B du registre d'état au moment 
du BRK ou de l'IRQ 

Ligne 7 : test du bit de signe de l'ac- 
cumulateur. Si celui-ci est à |. cela 
signifie que l'indicateur B était à | 


ASSET 


5q 


(BRK) et BMI branchera en $FA4C. 
Si le bit de signe est à O0. l'indicateur 
B était à O0 (IRQ) : le test BMI échoue 
et on passe à l'instruction suivante 
Ligne 8: nous sommes dans le cas 
d'une interruption IRQ et l'on saute 
à l'adresse contenue en $3FE-$3FF. 
adresse devant correspondre au 
début de la routine de gestion des in- 
terruptions IRQ si elle existe Si l'Ap- 
ple est mis sous tension sans DOS. le 
vecteur $3FE-$3FF ne conduit ‘nulle 
part: si le DOS est ‘booté”, il 
conduit à $FF65. soit au moniteur 
Là encore, c'est au programmeur dé- 
sirant exploiter les IRQ qu'il appar- 
tient de mettre en $3FE-$3FF 
l'adresse de sa routine de gestion des 
interruptions (routine du type de 
celle présentée plus haut). 

Lignes 9 à 15 : nous sommes dans le 
cas d'un BRK. On récupère le regis- 
tre d'état (PLP), on sauve les regis- 
tres en $45 à $49 (JSR $FF4C - rou- 
time de la ROM du moniteur). on 
sauve l'octet bas du compteur ordi- 
nal empilé lors du BRK en $3A (PLA 
- STA $3A) et l'octet haut en $53B 
{PLA - STA $3B}). puis on saute à 
l'adresse contenue en $3F8-53FI 
En standard. c'est-à-dire lorsque 
vous mettez l'Apple sous tension. 
$3F0-63F1 contiennent ‘59 FA”, un 
BRK conduit donc finalement à la 
routine commençant en $FA5$. qui 
affiche le contenu des registres à 
l'écran et passe en mode moniteur. 
stoppant ainsi le déroulement du 
programme en cours 


Lorsque vous utilisez le break sous la 
forme que lui ont donnée les 
concepteurs de l'Apple. il peut sur- 
tout vous servir lors de la mise au 
point de vos propres routines en lan- 
gage-machine. En effet. si tout ne se 
passe pas conformément à vos espé- 
rances. vous insérez un BRK dans le 
programme source en assembleur 
{soit un code 00 dans le programme 
objet) à l'endroit qui vous semble te 
plus significatif et vous en relancez 
l'exécution. En arrivant au BRK. le 
système stoppe le programme et affi- 
che les registres. ce qui vous permet 
d'en examiner le contenu. ainsi que 
celui des adresses que vous utilisez, 
afin de vérifier s'il correspond aux 
valeurs que vous aviez prévues lors 
de l'étude de votre programme. Cela 
facilite bien souvent le diagnostic des 
erreurs 


Afin d'illustrer le mécanisme des in- 
terruptions. et surtout celui des re- 
tours d'interruptions. dont le break 
peut assurer une certaine simulation. 
nous allons maintenant ‘’revectoriser"” 
le BRK (cest-à-dire modifier le 
contenu de $3F0-$3F1). pour qu'il 
ne conduise plus en $FA59 mais à 
une routine que nous implanterons 
nous-mêmes et qu. puisquil s'agit 
d'un exercice de style. rendra simple- 
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ment BRK transparent. En d'autres 
termes. nous ferons en sorte que 
BRK au milieu d'un programme 
nexerce plus aucune action sur son 
déroulement (sinon au niveau des 
temps dexécution) et permette le 
passage à l'instruction suivante. Cette 
routine. listée ci-dessous. débute à 
l'adresse $300 


Listing 2 

0300- Aé 3A LOX $3A 
0302- Ad 3B LOY $38 
0304- CA DEX 

0305- 10 O1! BPL 0308 
0307- 88 DEY 

0308- ?7B TYA 

0389- 48 PHA 

0304- 8A TXA 

0308- 48 PHA 

030C- A5 48 LDA #48 
030E- 48 PHA 

030F- 20 3F FF JSR  SFF3F 
0312- 40 RTI 


Lignes 1 et 2: nous arriverons tou- 
jours en $300 après être passé par 
$FA4O, qui stocke le compteur ordi- 
nal en $3A-$3B. On peut donc le ré- 
cupérer ici (octet bas dans le registre 
X et octet haut dans le registre Y) 
Lignes 3 à 5. pour reprendre le pro- 
gramme en cours (celui dans lequel 
or a inséré un break) à l'instruction 
qui suit BRK il faut rectifier la valeur 
de ce compteur ordinal en le dimi- 
nuant de 1 (decrémentation de f'oc- 
tet bas. puis de l'octet haut si néces- 
saire). 

Lignes 6 à 9. on empile le compteur 
ordinal rectifié dans l'ordre octet 
haut  octet bas 

Lignes 10 et 11: le passage en 
SFA4O a également provoqué la sau- 
vegarde du registre d'état au mo- 
ment du break à l'adresse $48 On 
va donc le relire et ie déposer au 
sommet de la pile. Cette dernière 
présente maintenant la même confi- 
guration qu'à l'issue d'une interrup- 
tion. 

Ligne 12: $FF3F est le début d'une 
routine du moniteur qui recharge les 
registres avec les valeurs lues en $45 
à #48 (le passage en $FA40 à permis 
la sauvegarde de ces mêmes registres 
dans ces mêmes adresses). On re- 
trouve ainsi le contenu des registres 
au moment du break dans le pro- 
gramme initial 

Ligne 13 : avec l'instruction RTI. on 
simule un retour d'interruption et. la 
pile avant été correctement reconfi- 
gurée. on doit retourner au pro- 
gramme principal. juste après l'ins- 
tuction BRK 


Pour mettre cette routine en mé- 
more. vous pouvez la charger à par 
tr de la disquette d'accompagnement 
ou la rentrei directement en mode 
moniteur en tapant 


CAEL —151 
300: A6 3A A4.. 40 


Pour en faire la nouvelle routine de 
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break. il faut ensuite en donner 
l'adresse en $3F6-$3FI Passez en 
mode meniteur si vous n'y êtes pas 
déjà et tapez : 

3F0: 00 03 


La routine listée ci-dessous nous ser- 
vira de test. En principe. elle doit 
exécuter un HOME et afficher un A 
en haut et à gauche de l'écran Etant 
donné que nous avons mis des BRK 
entre chaque instruction. cela ne sera 
effectivement possible que si notre 
routine en $300 rend bien le BRK 
transparent. Pour le vérifier. chargez 
cette seconde routine où rentrez !a 
directement en mémoire et lancez-en 
l'exécution par °2800G° à partir du 
moniteur ou “CALL 8192” à partir 
du Basic. Sauf erreur de frappe. vous 
devriez obtenir le résultat escompté. 
Cela vous donnera une petite idée 
de la façon dont les interruptions 
peuvent détourner l'usage du proces- 
seur au profit de périphériques et 
permettre néanmoins une reprise 
correcte du déroulement des pro- 
grammes interrompus 


Listing 3 

2000- 20 58 FC JSR sFCs58 
2003- 00 BRK 

2004- Ag Ci LDA #sCi 

2004- 00 BRK 

2007- 20 F0 FD JSR $FDFO 
2004- 00 BRK 

2008- 60 RTS 

Une instruction qui ne 


fait rien. 


S'il ne s'agit que de disposer d'une 
instruction transparente dans un pro- 
gramme, il n'est pas vraiment néces- 
saire (ce serait même plutôt inutile} 
de revectoriser le BRK comme ci- 
dessus. car le 6502 vous offre en 
standard une telle instruction : NOP 
(EA) 

NOP ne réalise aucun traitement, ne 
modifie aucun registre, aucune 
adresse et se contente de réclamer 
un peu de temps pour son exécu- 
tion. Elle n'en est pas totalement inu- 
tile pour autant 


e Lorsque vous testez une routine 
qui vous pose problème. vous étes 
amené bien souvent. dans un pre- 
mier temps du moins. à travailler 
directement au niveau du code 
objet en mode moniteur Si vous 
remplacez une mstruction par une 
autre plus courte (comportant 
moins d'octets) ou si vous voulez 
effacer une petite séquence d'ins- 
tructions qui vous semble dou- 
teuse. vous aurez besoin d'une 
instruction valide. ne provoquant 
pas la colère du processeur. mais 
transparente pour boucher les 
“trous” Vous remplirez donc ces 
derniers avec des codes EA {nous 
en verrons un petit exemple plus 
loin} 





e NOP ne fait rien, certes. mais elle 
n'en est pas moins traitée par le 
processeur, ce qui lui prend néces- 
sairement un peu de temps. NOP 
permet donc d'insérer des délais 
dans l'exécution d'un programme. 
aux endroits voulus (pour ralentir 
un affichage à l'écran. par exem- 
ple. ou ne pas ‘’affoler” la mécani- 
que des lecteurs de disquettes). 


Le décimal codé binaire 


Autre indicateur du registre d'état 
laissé de côté dans le Poms 13. le 
bit 3 ou indicateur “décimal codé bi- 


naire’ (DCB en abrégé} mérite 
maintenant quelques  développe- 
ments. 


Le DCB est une technique de repré- 
sentation des nombres correspondant 
à une version tronquée de l'hexadé- 
cimal. puisque l'on ne représentera 
que les chiffres décimaux O à 9. au 
lieu de O à F en hexadécimal 
Comme toujours. revenons un peu 
au binaire pour clarifier les choses 
Sur quatre bits. on peut coder les va- 
leurs comprises entre 0000 et 1111. 
soit O à 15 en ‘’décimal” ou encore O 
à F selon la notation hexadécimale. 
Si l'on se bome à coder les chiffres 
décimaux. on utilise les “combinai- 
sons” 0000 (0) à 1001 (9). mais pas 
les suivantes (1010 à 1111) qui ne 
correspondent pas à des chiffres dé- 
cimaux. En hexadécimal. un octet 
permet de représenter des valeurs 
comprises entre O0 et FF (0 à 255), 
mais en DCB. du fait des combinai- 
sons éliminées. on ne peut représen- 
ter que les nombres entre 00 et 99. 
Employer la notation DCB permet 
tout d'abord de retrouver notre sys- 
tème décimal classique. avec lequel 
nous avons normalement plus de 
communauté de langage qu'avec 
l'hexadécimal: ainsi, si l'on ajoute 1 à 
0S. on trouvera 18 et non 8A Par 
contre. cela suppose que soient bien 
éliminées dans les calculs les coml 
naisons iliicites. sous peine de gra 
incohérences dans les résultats 


Le processeur 6502 dispose d'un 
mode de calcul en DCB. dans lequel 
il se charge lui-méme de limiter les 
combinaisons de bits aux seuls chif- 
fres décimaux. Pour sélectionner ce 
mode. il suffit de mettre l'indicateur 
DCB du registre d'état à 1 au moyen 
de l'instruction SED (F8). @n revient 
au système hexadécimal “naturel” en 
mettant cet indicateur à O au moyen 
de l'instruction réciproque CLD 


(D8) 


Vous trouverez ci-dessous un petit 
exemple d'addition en DCB. dont 
nous vous laissons conduire l'analyse 
à l’aide des précisions suivantes 


— Avant de faire appel à des routi- 
nes du système {moniteur où Basic). 


: EE ER 
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= + 
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il est toujours prudent de revenir à 
lhexadécimal. car ces routines sont 
prévues pour fonctionner avec des 
valeurs hexa et l'on obtient souvent 
des résultats bizarres st l'on s'y bran- 
che en mode DCB Ceci explique la 
présence de CLD avant le premier 
JSR $FDDA 

— $FDDA est une routine du moni- 
teur qui affiche le contenu de l'accu- 
mulateur sur deux chiffres $FD8E 
envoie un RETURN et $FDIB attend 
la frappe d'une touche au clavier 


Si vous lancez cette routine (à partir 
du moniteur par 300G. par exem- 
ple}. vous verrez s'afficher 0001 puis 
le curseur Après avoir tapé une tour- 
che. vous verrez 0002 et amsi de 
suite jusqu à 9999 si vous en avez la 
patience Après 9999, on repart à 
0008 Notez bien que le calcul passe 
de 0009 à 0010 puis 0011. de 0019 
à 0020 puis 0021 


Listing 4 

0300- A9 00 LDA  ##00 
0302- 85 07 STA 407 
0304- 85 06 STA  s06 
0306- F8 SED 

0307- 18 CLC 

0308- AS 06 EDA $04 
0304- 69 6: ADC  #s0! 
030C- 85 04 STA $06 
030E- AS 07 LDA 807 
0310- 69 00 ADC ##00 
0312- 83 07 STA 307 
0314- D8 CLO 

0315- 20 DA FD JSR $FDOA 
0318- A5 06 LDA #06 
031A- 20 DA FD JSR $SFDDA 
031D- 20 8E FD JSR  #FDSE 
0320- 20 18 FD JSR +F018 
0323- ac 06 03 JMP 50306 


Le mode DCB peut ainsi servir juste- 
ment à faire un affichage simple d'un 
compteur en décimal. en vous évi- 
tant d'aveir à convertir les résultats 
avant de les afficher, En ce qui 
concerne les additions. le processeur 
peut même vous réserver d'agréables 
surprises. Remplacez par exemple le 
00 de l'adresse $301 par OF et relan- 
cez la routine: vous verrez apparai- 
tre 

1516 

1517 

Le processeur a comigé tout seul 
votre erreur et converti votre $O0F en 


15 DCB ! 


Les soustractions, en revanche. n'of- 
frent pas les mêmes garanties Trans- 
formons notre programme d'addition 
en programme de soustraction en 
remplaçant CLC (18) par SEC (38) 
et les deux ADC (69) par des SBC 
(E9}. Si l'on commence par LDA 
#00. tout se passe bien et le calcul 
donne 

9008 

9998 

9997 

Si lon commence par LDA #$0F. 
par contre. on obtient 

OFCE 


OFOD 

OFOC 

Le processeur va calculer ainsi en 
hexadécimal jusquà ce que le 
contenu de l'octet revienne dans les 
chiffres décimaux (on a par exemple 
CFO2 - OFOI - OFO0 - 0E99 - CE98) 
Le résultat d'ensemble n'est donc 
pas particulièrement cohérent 


Outre les précautions d'emploi quil 
réclame. le DCB présente un incon- 
vénient au niveau de la consomma- 
tion en mémoire. Deux octets per- 
mettent de coder les nombres 
jusqu'à 65535 ($FFFF) en hexadéci- 
mal. mais jusqu à 9999 seulement en 
DCB. Quelle que soit la valeur 
maximale que l'on désire représen- 
ter. il faudra toujours plus d'octets 
pour le faire en DCB qu'en hexadé- 
cimal 

Citons rapidement d'autres petits 
probtèmes relatifs au DCB : l'élimina- 
tion des combinaisons de bits illicites 
après des décalages ou des rotations. 
la dispantion de la notion de “bit de 
signe” 

Finalement. tout cela ne fait pas de 
la notation DCB un système parti cur- 
lièrement sympathique Vous pouvez 
l'utiliser sans grand nsque pour l'affi- 
chage direct en décimal des résultats 
de calculs simples, mais au delà. pru- 
dence 


La pile : suite et fin 


Depuis le Pom's 12. nous avons sou- 
vent parlé de la pile du microproces- 
seur. sans rentrer dans le détail de 
son organisation car cela n'était pas 
nécessarre pour la manipulation des 
instructions présentées à cette occa- 
sion Il nous suffisait de savoir que 
lon peut déposer quelque chose à 
son sommet, l'y reprendre ensuite et 
que le processeur l'utilisait également 
pour mémoriser l'adresse de retour 
après un JSR Nous avons vu plus 
haut le rôle qu'elle joue en outre 
dans les mécanismes de break et 
d'interruptions En fait. elle fournit 
souvent la solution de bien des pro- 
blèmes de programmation dés lors 
que lon sait plus précisément 
comment elle fonctionne et nous 
allons donc faire plus ample connais- 
sance avec elle 


La pile est une zone de ‘stockage’ 
de 256 octets qui se trouve en mé- 
moire aux adresses $100 (256) à 
$IFF (511) - c'est la page 1 de la 
mémoire RAM de l'Apple Première 
remarque : la pile se situe donc dans 
une zone mémoire qui vous est tout 
aussi accessible que la zone de travait 
de lApplesoft. ou des adresses 
comme $6 ou $7 que nous avons 
souvent utilisées pour nos routines 
Conséquence, ne POKEz jamais 
quelque chose entre 256 et 511 sans 
mesurer précisément à l'avance les 
risques de cette entreprise. 


ASE 
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Pour gérer sa zone de stockage, le 
6502 dispose d'un pointeur (baptisé 
S). qui. au contraire de la pile elle- 
même. est un registre interne au 
même otre que l'accumulateur ou le 
compteur ordinal par exemple Ce 
pointeur correspond à un octet, peut 
donc varier de O à 255 ($0 à $FF) et 
indique toujours la première position 
libre dans la pile. c'est-à-dire son 
sommet Particularité du sommet : il 
s'élève vers le bas car la pile se rem- 
pli de l'adresse $1FF vers l'adresse 
$100 et non l'inverse Lorsque la pile 
est totalement vide. le pointeur de 
pile S content $FF et le premier 
octet empilé le sera à l'adresse 
"$100 + valeur de S”. soit $1FF 
Après cet ‘empilage  S contient $FE 
et la prochaine valeur à empiler le 
sera à l'adresse $I1FE Chaque fois 
que l'on empile un octet. S diminue 
de 1 et chaque fois que l'on dépile 
un octet, S augmente de 1 

Îl n'existe pas d'instructions pour ma- 
nipuler directement ce pointeur de 
pile (du type LBS ou STS). mais on 
peut néanmoins le faire par l'inter- 
médiaire du registre X grâce aux Ins- 
tructions 


e TSX (BA): copie le contenu du 
pointeur de pile dans X sans chan- 
ger la valeur de S 

e TXS (9A): copie le contenu de X 
dans le pointeur de pile 


JSR, RTS et pile 


Une instruction JSR suivie de 
l'adresse de la sous-routine concer- 
née occupe toujours 3 octets (par 
exemple. JSR $SB1 = 20 00 BI et 
JSR $FDED = 20 ED FD) Avant 
d'exécuter une instruction. le proces- 
seur calcule l'adresse de l'instruction 
suivante et la range dans le compteur 
ordinal L'adresse de l'instruction qui 
suit un JSR est donc ‘adresse du 
JSR + 3° et elle correspond à l'en- 
droit où l'on doit revenir après le dé- 
roulement d'une sous-routine se ter- 
minant par RTS 

Cette adresse de retour est déposée 
au sommet de la pile. mais elle cor- 
respond en fait à l'adresse réelle di- 
minuée de 1 (soit adresse du JSR + 
2}. car l'exécution de RTS augmente 
de 1 le compteur ordinal (le proces- 
seur prend les deux octets du som- 
met de la pile pour les mettre dans le 
compteur ordinal. augmente ce der- 
nier de | et passe ensuite à l'instruc- 
tion dont l'adresse lui est donnée par 
la nouvelle valeur du compteur). 


Nous a!lons voir comment cette inte- 
raction entre JSR et la pile est utilisée 
par les cartes d'interface pour déter- 
miner le slot dans lequel elles se 
trouvent et savoir ainsi quelles adres- 
ses de travail leur sont réservées par 
l'Apple. 

Prenons l'exemple d'un contrôleur 
de disquette DOS 3.3, dont le listing 
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ci-dessous reproduit un court extrait 
de la ROM Notez bien que l'adresse 
de départ $C621 provient du fait 
que le contrôleur se trouve dans le 
slot 6 au moment de cette liste Les 
ROMSs de l'interface sont conçues de 
telle façon qu'elles puissent fonction- 
ner quel que soit le slet dans lequel 
on les installe et. si le contrôleur était 
dans le slot 5. par exemple. on trou 
verait exactement la même chose à 
partir de l'adresse $C521 


Listing 5 

Cé2i- 20 58 FF JSR  4FF58 
Cé24- BA TSX 

Cé25- BO 00 01 LDA $0100,X 
Cé28- DA Ask 

Cé29- 0A ASL 

Cé2A- 0A ASL 

Cé28- oA ASL 

Cé2C- 85 28 STA  s2B 
Cé2E- AA TAX 

Cé2F- BD SE Co LDA  $C08E,X 
C632- BD 8C co LDA  $co8c.x 
Cé35- BD 8A CO LDA  $cogA.x 
Cé38- 80 8° Co LDA $C089,X 
C638- A0 50 LDY ##50 
Cé3D- 8D 80 Co LDA $Cc080 ,X 


— $C62i : l'adresse $SFF58. située 
dans la ROM du moniteur. contient 
la valeur #$60. c'est-à-dire le code 
de l'instruction RTS Un JSR S$FF58 
nous ramène donc immédiatement à 
la suite du JSR mais. entre-temps. 
l'adresse de retour diminuée de 1 a 
été déposée au sommet de la pile, 
dans l'ordre octet haut ? octet bas 
En l'occurence. on avait donc ‘23 
au sommet de la pile et ‘C6 en 
dessous (adresse de retour — $C624, 
soit $C623 après déductiou de 1). 
avant le RTS de l'adresse $FF58. Le 
RTS dépile cette adresse dans le 
compteur ordinal et augmente le 
pointeur de pile de 2 mais. aussi 
longtemps que lon nempile rien 
d'autre, les deux octets du sommet 
de la pile sont toujours les mêmes. 
Le registre S pointe sur la position 
où se trouve “C6” pour indiquer que 
c'est la première position libre. mais 
il y à encore pour l'instant à cette 
position “C6” et ‘23 à la position 
supérieure 

— $C624: on transfère la valeur du 
pointeur de pile dans le registre X 
par TSX 

—  $C625 finstruction  ‘LDA 
$100.X'" permet de charger l'accu- 
mulateur avec le contenu de la pre- 
mière position libre de la pile (sans 
modifier le pointeur de pile. bien sûr) 
et l'on récupère ainsi *C6” dans l'ac- 
cumulateur 

— $C628 à $C62B. après quatre 
décalages à gauche (ASE) le contenu 
de laccumulateur devient ‘60 
Cette valeur sera ensuite transférée 
dans le registre X et elle permettra 
d'accéder aux adresses réservées à 
une carte dinterface placée dans le 
slot 6 


Le travail effectué par cette routine 
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peut vous paraitre inutile puisque 
nous savons depuis le départ que la 
carte se trouve dans le slot 6 et quil 
suffisait donc de charger X avec 
#$60 pour obterur le même résultat 
Mais le programmeur qui à déve- 
loppé les routines de la ROM du 
contrôleur ne pouvait savoir dans 
quel slot vous alliez le mettre et vou- 
lait en outre que ces routines fonc- 
tionnent indépendamment de ce slot 
(si vous utilisez le slot 5, le registre X 
devra conterur #$50 au lieu de 
#$60}. Etant donné que la ROM est 
écrite ‘une fois pour toutes” et que 
l'on ne peut remplacer ‘LDX #$60” 
par ‘LDX #$50° lorsqu'on l'utilise. 
la solution consiste donc à employer 
un mécanisme JSR - RTS pour 
aller lire ensuite la pile et savoir si 
l'on à envoyé le JSR à partir d'une 
adresse C6nn. C5nn. Cänn ou autre. 


Pour détailler un peu plus ce sys- 
tème. vous trouverez ci-après la liste 
et le compte-rendu d'exécution 
d'une petite routine utilisant le mème 
principe et permettant de vérifier 
concrètement le contenu de la pile 


Listing 6 

0300- A2 E0 LDX  ##8E0 
0302- A TXS 

0303- 29 58 FF JSR  sFF58 
0306- BA TSX 

0307- Bé 06 STX #06 
0309- BD 00 &1 LDA #0100,X 
030C- 85 07 STA 507 
030E- CA DEX 

030F- BD 00 01 LDA #0100,X 
0312- 85 08 STA 508 
0314- A2 4û LDX  #840 
0316-  9A TXS 

0317- O0 BRH 

0318- 00 BRK 

0319- 00 BRK 

031A- 00 BRH 

0318- 00 BRK 

031C- 00 BRK 

031D- 00 BRK 

031E- 00 SR: 

*3006 

0319- A=05 X=40 Y=D8 P=30 S=3C 
*6.8 

0006- EO 03 

00083- 05 

*108.1E7 


0108- 6F BE 00 00 30 30 31 05 
01E0- 03 30 00 00 00 00 00 0A 


On initialise le pointeur de pile à 
#$E0. on exécute le JSR $FF58 puis 
on récupère la valeur de S et on la 
stocke en $6. On lit ensuite la pre- 
mière position libre et on la stocke 
en $7 En décrémentant X {la pile se 
remplit vers le bas}. on lit ensuite 
l'octet qui se trouve ‘au dessus” de 
la première position libre et on le 
range en $8. Puis on initialise S à 
#$40. afin de préserver les valeurs 
que nous avons nous-mêmes empi- 
lées (en d'autres termes. on remonte 
le sommet de la pile loin de l'endroit 
que nous avons manipulé), et on 


stoppe le programme par un BRK 
standard de l'Apple 

On trouve ainsi aux adresses $6 à 
$8 

— E0 le pointeur de pile est bien 
revenu à sa Valeur intiale SEO après 
le RTS de l'adresse $FF58 

— 03: octet haut de l'adresse de re- 
tour du JSR 

— 05 octet bas de l'adresse de re- 
tour du JSR. diminué de 1 

En lisant le contenu de la pile entre 
les adresses $1D8-$1E7. on peut vé- 
rifier la présence de “63” à l'adresse 
$IEO (S = $EO) et de ‘05° à 
l'adresse $1DF {S = S$DF. ce qui 
constituait bien le sommet de la pile 
avant RTS) 


Manipulation du pointeur de pile 


Nous en avons vu un exemple ci- 
dessus linitialisation à #$E0U ou à 
#$40) 

En changeant la valeur du pointeur 
de pile. on modifie l'endroit où sont 
empilés les octets par la suite. et l'on 
modifie également les valeurs lues 
lorsque le processeur dépile quelque 
chose Cela est vrai qu'it s'ag'sse de 
dépiler dans l'accumulateur par PLA, 
par exemple. ou quil s'agisse de 
l'adresse de retour d'un JSR 


La routine suivante utilise la manipu- 
lation du pointeur de pile pour réali- 
ser l'équivalent d'un POP en langage 
machine. L'exemple choisi na 
qu'une valeur démonstrative car le 
traitement effectué ne nécessite nulle- 
ment pareille complication 


Listing 7 

0300- 20 58 FC JSR  SFCS9 
0303- A9 C1 LDA  ##C! 
0305- 20 OC 03 JSR 0300 
0308- 20 FO FD JSR  SFDFO 
0308- 60 RTS 

930C- 29 7F AND #87F 
030E- BA TSX 

030F- EB INX 

0310- EB INX 

0311- 9A TXS 

0312- JC 06 03 JMP  $0308 


La routine effectue un HOME puis 
affiche un À en mode FLASH La 
partie qui nous conceme se situe 
dans la sous-routne débutant en 
$30C. 

On met le bit 7 de l'accumulateur à 
0 pour modifier le code-écran auquel 
il correspond et on augmente ensuite 
le pointeur de pile de 2 (TSX - INX - 
INX - TXS}). Par cette opération. on 
déplace le sommet de la pile ‘en- 
dessous” de l'adresse de retour du 
JSR $030C. Le fait de revenir alors 
de la routine par un JMP 50308 ne 
perturbe pas le déroulement du pro- 
gramme car. ayant fait ‘sauter une 
adresse de retour. il n'y à pas réelle- 
ment plus de JSR que de RTS 


Annulez maintenant la manipulation 
du pointeur de pile en tapant, en 
mode moniteur 
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30E: EA EA EAEA 


ce qui remplace les instructions pré- 
cédentes par des NOP. Relancez la 
routine et vous verrez cette fois s’affi- 
cher deux À en FLASH au lieu d'un. 
En voici lexplication : 

— Au JSR $030C. l'adresse 5307 est 
empilée. 

— Comme il n'y pas de RTS dans la 
routine $30C et que l'on revient par 
JMP $308, l'adresse $307 constitue 
toujours le sommet de la pile. 

— La routine débutant en $FDF® se 
termine par un RTS. Le processeur 
récupère le sommet de la pile, soit 
$30A après le JSR $FDFO, et l'utilise 
comme base de l'adresse de retour: 
on revient en $30B. 

— En $30B. on trouve un RTS Le 
processeur reprend encore le som- 
met de la pile et tombe” cette fois 
sur $307 qui y est remonté lorsque 
$30A a été dépilé. On revient de ce 
fait en $308. ce qui provoque l'affi- 
chage dun deuxième caractère à 
cêté du premier. Le mécanisme des 
RTS se fait ensuite normalement 
puisqu'il ny a plus d'adresse excé- 
dentaire dans la pile. 


Gestion de tables 


Supposons que vous avez plusieurs 
tables d'octets à gérer à l'intérieur 
d'un programme, telles par exemple 
des tables contenant les codes des 
caractères de messages à afficher à 
l'écran. Malheureusement. vous ne 
savez pas exactement combien de 


0300 1 
0300 2058FC 2 
0303 201803 3 
0306 CDCSD3 4 
0309 D3CIiC7 

030C CSAOBI 

030F O0 

0310 201803 5 
0313 CDCSD3 6 
0316 D340B2 

0319 00 

0314 60 7 
031B BA 8 So 
031C BDO101 4 
031F BS0é 10 
0321 BDO201 11 
0324 8507 12 
0326 AO001 13 
0328 FEO101 14 S3 
032B 0003 15 
032D FEO201 16 
0330 B106 l7:S2 
0332 FOGé 18 
0234 20FOFD 19 
0337 CB 20 
033B DOEE 21 
0334 2062FC 22:-S1 
033D 60 23 


ces tables vous seront nécessaires. ni 
à quels endroits elles se trouveront 
dans le programme. Comme tou- 
jours, plusieurs solutions sont envisa- 
geables pour résoudre les problèmes 
de programmation que pose cette si- 
tuation L'une d'elle consiste là en- 
core à utiliser la pile, comme le mon- 
tre le programme suivant. que nous 
allons analyser. 


Ligne 4: elle correspond aux codes 
écran du message MESSAGE 1]. 
suivis d'un O0 pour en marquer la 
fin. 

Ligne 5: codes écran de MESS 2, 
suivis de OO. 

L'affichage se fera à chaque fois par 
un JSR SO placé avant les codes 
composant le message 

Lignes 8 à 12: on transfère le poin- 
teur de pile dans X pour lire les deux 
octets du sommet de la pile. c'est-à- 
dire l'adresse de retour du JSR SO 
diminuée de 1. On prend pour 
adresses de base $101 et $102 au 
lieu de $100 et $101. puisque S 
pointe vers la première position libre. 
et donc vers l'octet qui se trouve au 
dessus de l'adresse qui nous inté- 
resse. On stocke cette adresse en $6- 
$7 pour qu'elle puisse nous servir 
ensuite d'adresse de base dans un 
indexage indirect par Y. 

— Ligne 13 : oninitalise Y à |. pour 
tenir compte du fait que l'adresse 
placée en $6-$7 ne correspond pas 
exactement à l'adresse du début de 


à cette adresse diminuée de 1. 

— Lignes 14 à 16. incrémentation 
de l'adresse de retour située au som- 
met de la pile. Il s'agit en effet de ne 
pas revenir de notre routine SO à 
l'adresse qui suit JSR SO (début de 
la table), mais à l'adresse qui suit le 
00 marquant la fin des codes. 

— Lignes 17 et 18: lecture d'un 
code dans la table. Si c'est 00. on 
passe en S1 qui fait afficher un RE- 
TURN {SR $FC62) et nous amène 
en fin de routine (RTS). Si l'adresse 
de retour a bien été augmentée à 
l'intérieur même de la pile. on doit 
alors reprendre le programme princi- 
pal à l'instruction qui suit la table des 
codes. 

— Lignes 19 à 21 affichage du ca- 
ractère {JSR $FDFO) et passage au 
suivant {INY - BNE S3). 


Avec un tel système. l'ajout de nou- 
veaux messages en cours de déve- 
loppement du programme ne pose 
guère de problèmes. il suffit d'insérer 
à l'endroit voulu dans le programme- 
source un ‘JSR S0” suivi du mes- 
sage à afficher. sans se préoccuper 
de l'adresse à laquelle commencera 
la table des codes des caractères à 
l'issue de l'assemblage final. 


Remercions donc tous ensemble 
Thienvy Le Tallec qui. par le biais de 
l'une de ses contributions. nous a 
donné l'idée de cette méthode pour 
illustrer les bienfaits de la gestion de 
pile. 





notre table de codes à afficher. mais E 
ORG $300 
JSR $FCS8 SOURCE LISA 1.5 
JSR SG 
HEX CDCSD3D3C1C/CSA0B100 
JSR SO 
HEX CDCSD3D3A0B200 
RTS 
TSX 
LDA $10!,X 
STA $é 
LDA $102,X 
STA $7/ 
LDY #1 . : à 
INC #101,X Récapitulation 

7 

cs ie. 0300- 20 SB FC 20 18 03 CD CS 
LDA (#6) ,Y 0308- D3 D3 Ci C7 CS AG B1 00 
BEO Si 0310- 20 18 03 CD CS D3 D3 40 
JSR $FDF0 031S- B2 00 640 BA BD 01 O1 BS 
INY 0320- 06 BD 02 01 85 07 AO O1 
BNE S3 0328- FE 01 01 D0 03 FE 02 01 
JSR $FCé? 0330- B1 06 F0 06 20 FO FD CS 
RTS 03383- DO EE 20 62 FC 60 


ASS DENON EMMMEMEE 
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HPGRAPH est un ensemble de pro- 
cédures et de fonctions Pascal per- 
mettant de simuler une partie des 
puissantes instructions graphiques du 
Hewlett-Packard HP 9845. Ces in- 
tructions se retrouvent également sur 
les micros HP, HP 85 et 87 Elles 
ont été définies sous la ferme d'une 
INTRINSIC UNIT Pascal. Il faut donc 
la placer dans la SYSTEMELIBRARY 
pour pouvoir utiliser. 


Tout programme utilisant les procé- 
dures HPGRAPH doit commencer 
comme suit 


PROGRAM xxxx: 
{(*$S++) (xoption Swapping*) 


USES TURTLEGRAPHICS. 
TRANSCEND, HPGRAPH. 


Voyons maintenant les instructions 
possibles. 


Définition du format de 
l'écran 

SCALE (XMIN,XMAX,.YMIN, 
YMAX :REAL). 


Cette procédure définit les bornes de 
l'écran : le point placé en bas à gau- 
che à pour coordonnées (XMIN. 
YMIN) et le point situé en haut à 
droite (XMAX, YMAX) Tout l'écran 
est utilisé: il y a donc un certain apla- 
tissement des figures SCALE est fixé 
par défaut à l'echelle réelle de 
l'écran. soit SCALE (0, 279. 0. 19ï) 


SHOW (XMIN.XMAX,YMIN, 
YMAX :REAL). 


Cette procédure définit un carré dans 
lequel seront tracés les dessins Par 
exemple. si l'on fait un SHOW 
(—3.14 3.14, -]. i). la zone dans 
laquelle les dessins seront tracés sera 
(—3.14. 3.14. -314, 314). Cette 
instruction est utile pour obtenir. par 
exemple. des tracés de cercles qui ne 
soient pas ovales. c'est-à-dire 
compressés L'écran utilisable. en 
coordonnées réelles. est donc (0. 
191. 0. 191). 


LIMIT (XMIN,XMAX,YMIN, 
YMAX :REAL). 


Cette procédure est l'équivalent HP 
de l'instruction VIEWPORT du TUR- 
TLEGRAPHICS. mais ici les coor- 
données sont dans le format spécifié 
par SCALE. Par défaut. LIMIT est 
fixé aux mêmes valeurs que SCALE 


AXES et 


Instructions 


FRAMES 


FRAME est une instruction sans pa- 
ramètres qui permet de mettre un 
cadre autour de l'écran. 
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AXES (XTIC.YTIC,XINTER, 
YINTER :REAL). 


Comme son nom l'indique. cette ins- 
truction permet de tracer des axes 
sur l'écran Les axes se croisent au 
point (XINTER. YINTER) et sont gra- 
dués avec une graduation tous les 
XTIC sur l'axe (x x) et une tous les 
YTIC sur l'axe (y y). Cette procédure 
sert notamment lors du tracé de 
courbes. 


Instructions de tracé 


PEN (COLOR :SCREENCOLOR). 


Cette instruction permet de choisir 
une couleur parmi les couleurs du 
Pascal. Exemple PEN (GREEN) 
Par défaut. la couleur choisie est le 
WHITE 


PENUP. 


Cette procédure. comme son nom 
l'indique. lève la plume. c'est-à-dire 
que les prochaines  intructions 
CMOVE. CDRAW. PLOT. RPLOT et 
IPLOT seront juste un déplacement, 
sans tracé, 


PDIR (ALPHA :REAL). 


Cette procédure est l'une des plus 
puissantes du Basic graphique HP 
Elle réalise une rotation des axes de 
l'angle ALPHA. suivant le sens trigo- 
nométrique. ALPHA est exprimé en 
radians. et peut être négatif. Toutes 
les instruct'ons de tracé sont réalisées 
dans le repère spécifié par SCALE et 
PDIR. PDIR(O). la valeur par défaut. 
correspond à un repère orthogonal 
classique. On trouvera un exemple 
d'utilisation de cette instruction dans 
le programme ROSE disponible sur 
la disquette d'accompagnement 


PLOT (X,Y :-REAL; 
MODE:INTEGER): 


Cette instruction réalise un déplace- 
ment ou un tracé Jusqu'au point de 
coordonnées (X. Y)} Le MODE est 
un paramètre obéissant aux règles 
suivantes: sil est pair. la plume 
“descend” (PENDOWN) et une ligne 
sera engendrée. S'il est impair, la 
plume “monte” (PENUP) et un dé- 
placement sera effectué Si MODE 
est positif. la plume changera d'état 
après l'exécution du PLOT. sinon 
avant son exécution Par exemple. 
MODE = 1 réalise soit un tracé soit 
un déplacement selon l'état antérieur 
de là plume. puis baisse la plume (le 
prochain PLOT sera donc un tracé) 
MODE = 2 ou MODE = 0 effectue 
un tracé ou un déplacement. puis 
lève la plume fle prochain PLOT 
sera un déplacement} MODE = —-2 
lève la plume puis effectue te dépia- 
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cements MODE = -T baisse la 
plume et effectue le tracé 


CMOVE (X,Y ‘:REAL) 


Correspond à l'instruction MOVE 
HP, qui n'a pas pu être transcrite 
sous le même nom puisqu'une pro- 
cédure MOVE existe déjà dans le 
TURTLEGRAPHICS Elle réalise 
l'équivalent d'un PLOT{X. Y. —2). 


CDRAW (X,Y :REAL) 


Correspond à l'instruction DRAW 
HP. Elle réalise l'équivalent d'un 
PLOT{X. Y, —1) 

IPLOT (X,Y :REAL; 
MODE:INTEGER). 


Cette procédure effectue un déplace- 
ment ou un tracé, suivant le MODE. 
en coordonnées relatives: les coor- 
données d’origine sont les coordon- 
nées du dernier PLOT, CDRAW. 
CMOVE ou RPLOT. Exemple : tracé 
d'un carré de centre (0.0) et de côté 
de longueur 60 

SCALE (—60, 60, -60. 60). 
CMOVE ( —30, —30). 

IPLOT{60. 0, —1); IPLOT(O. 60, 
—1): IPLOT(-60, 0, -1}: IPLOT(0. 
=60; =1): 

RPLOT (X,Y :REAL;: 
MODE:INTEGER). 


Cette instruction est également une 
des instructions clefs du Basic graphi- 
que HP Elle réalise un tracé ou un 
déplacement relatif mais. contraire- 
ment à IPLOT. le point otigine ne 
varie pas après le RPLOT Ce point 
origine est la dernière position de la 
plume après une instruction PLOT., 
CDRAW. CMOVE, FRAME, AXES 
ou IPLOT Le MODE obéit aux 
règles habituelles. Un exemple tracé 
d'un carré de centre {0.0) et de côté 
de longueur 60 (dans le repère défini 


par SCALE) 

SCALE (- 50. 50. -50. 50}: 
CMOVE (0, O}. 

RPLOT (—30 =30 —2). 


RPLOT(30, -30. 1}; RPLOT(30, 
30, —1): RPLOT(-30, 30. —1): 
RPLOT (-30. -30, -1): 


Conclusion 
L'unité graphique HPGRAPH est for- 
mée de procédures aisément 


compréhensibles. permettant de tra- 
duire facilement en Pascal des pro- 
grammes graphiques d'origine HP. Ils 
permettent également d'écrire soi- 
même facilement tous les program- 
mes nécessitant des  formatages 
d'écran et des rotations d'axes. Il est 
malheureusement assez lent, par rap- 
port aux intructions Basic d'HP (en- 
viron une fois et demi plus lent que 


CC ER 
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sur le HP 85 pour le tracé de la manquent, comme GRID (quadril- que (DIGITIZE). de sauvegarde sur 
ROSE). If serait très facile d'ajouter lage de l'écran), les instructions de disque d'écrans graphiques (GLOAD 





quelques instructions HP qui lui saisie automatique sur l'écran graphi- et GSTORE) E 
IF PENDOUNSFALSE THEN CMOVE(X, Y); 
Programme HPGRAPH CORAUCX,Ÿ) }PENDOURI 1m FALSE 
END: 
-2 :BEGIN 
PENOOUW/ := FALSE;CMOUE(X,Y} 
END; 
(ass sr) -1 :B8EGIN 
Pre ne PENDOUN := TRUE ;CORAWCX,Y) 
INTRINSIC CODE 16 DATA 17; ENo 
END 
INTERFACE ENDE 
CSC N.Monsarrat septembre 1984) PROCEDURE RPLOT: 
PT UAR OCURX ,OCURY,XCART,YCART :REAL; 
2 TRAN BEGIN 
CRE URE CONUE. OCURX := CURX;OCURY :=CURY:; 
PROCEDURE PEN (COLOR :SCREENCOLOR ) ; Re CN 
PROCEDURE PDIR (ALPHA :REAL) j BL OT ER ET CRE Mob ee ; 
PROCEDURE CMQVE CX,Y:REAL) à EURE DPURS CUS de Une 
PROCEDURE CDRA.J CX,Y:REAL ); ND î È 
PROCEDURE PLOT CX,YIREAL:;MODE : INTEGER) 1 è 
PROCEDURE RPLOT (X,YiREAL;MODE : INTEGER) ; , 
PROCEDURE IPLOT CX,Y'REAL:MODE : INTEGER) : re En 
PROCEOURE LIMIT CXIAIN,XMAX,YMIN,YHAX 2REAL) 1 CI ' ; ; 
PROCEOURE SCALE CXMINXMAX,SMIN,VMeX REAL) 1 ; : : 
PROCEOURE SHOu CXMIN,204AX, YMIN,YMAX 2REAL ); or pe Fe ; Se : hr 
we PROCEDURE AXES EXTIC,YTIC, XINTER,YINTER :REAL) ; PLOTXCART ,YCART MODE) 
Li . 
| IMPLEPENTATION 29; 
mé Mie ane ne ile PROCEDURE LIMIT; 
'e ss PARA Hi BEGIN 
+4 HEDCOR + ECREENCOLOR? CXMIN = FXCXMIN) SLYMIN = EYCYMIND: 
ne CENT ! LXMAX 1m FXOG MAX); LYMAX 1m FYCYMAX) ; 
ÿ A NS M NTECER ULEUPORTCLXMIN,OMOX , LYM IN, L'YMAXD 
A . ï ; g10; 
m FUNCTION FX(X iREAL) :INTEGER:; SÉOCETURE CE 
| RE BEGIN 
V4 ae ie ROUNDXIX-PX)#DX)D PX := XMIN;PY :æ= YMIN: 
a 3 OX = 279/(XMAX=XMIN) : 
_ FUNCTION FYCY :REAL) :INTEGER:; PES Le PAR LEE 
L BEGIN LIMITCXMIN.XMAX ,YMIN, YMAX) 
. FY :æ ROUNDK{Y-PY)#0Y) END; 
ED; 
PROCEDURE SH4@W ; 
PROCEDURE FRAME; BEGIN 
VAR DX,OY :INTEGER; IF YMINCXMIN THEN XMIN := YMIN 
BEGIN ELSE YMIN := XMIN; 
OX := TURTLEX;0Y := TURTLEY:; IF YMAXDIMAX THEN XMAX := YMAX 
PENCOLOR(NONE) ;MOVETOCLXMIN, LYMIN) ; ELSE VX 1= XMAX; 
PENCOLOR( HCOLOR) ;MDVETO( UXMAX , L'YMIN) ; PX := XMIN;ÿPY 3m YIHIN: 
MQOVETOCLXMAX , LYFIAX) :MQVETOCUMIN ,E YMAX) ; DX :m 191/(XMAX=-XMEND;DY :m= OX; 
MQUEFO( ÜUGMIN ,L YMIN) ; PENCOLOR(NONE) ; LIMITCXMIN, XMAX,Y MIN, YP-1AX) 
MQUETO(OX , OY) END; 
END; 
PROCEOURE AXES; 
PROCEDURE PENUP; VAR 1,X,Y,PAS :INTEGER:; 
BEGIN BEGIN 
PENOŒN :m= FALSE PENCOLOR(NORNE) ;MGJETO(CO, ROUND(F YCY INTER )}) ; 
en; PENCOLORCHCOLOR ) ; MOLETO(27Ÿ, TURTLEY } ; 
PENCOLORCNONE } ; MOUET O(ROLNO(FXCXINTER ) ),0); 
PROCEOURE POIR; PENCOLOR(HCOLOR) ;MOVETO( TURTLEX, 1913: 
BEGIN FOR ! := 1 TO 2 DO BEGIN 
COSAL := COS(ALPHA ); PAS = ROUND(XTIC#DX ) à 
SIMAL :æ= SINCALPHA) IF Iz2 THEN PAS :» - PAS; 
ENO:; X := ROUNOCFXIXINTER) 3 ; 
Y := ROUNO(FYCYINTER)i; 
PROCEOURE PEN; REPEAT 
BEGIN PENCOLOR(NONE) :MO/ETO( X, Y=2) ; 
PENCOLOR(HCOLOR) ;MOVETO(X, Y +2); 
HCOLOR :=COLOR; X :=# X + PAS 
PENDOUH := TRUE ENTIL NOTCOX IN C0..2791) 
END; END: 
FOR 1 := 1 TO 2 DO BEGIN 
PROCEDURE CMOVE; PAS :m= ROUND(YTIC#DY); 
BEGIN IF [=2 THEN PAS :m= - PAS; 
CURX 5m Xj CURY = Y; Y = ROUNDCFYCYINFER) ) ; 
PENCOLOR(NONE) ;MQUETOC(FXCX) ,FYCYD) ; X = ROUNS(FXCXINTER) ) ; 
ENO; REPEAT 
PENCOLOR(NONE) :MGUETO(X-2, Y) ; 
PROCEDURE CDRaul; PENCOLORCHCOLOR) ;MOUETOC(X+2,Y) ; 
BEGIN Y := Y + PAS 
CURX = Xj CURY := Y; UNTIL NOTCY IN (0..191)) 
PENCOLORCHCOLOR) ;MQUE FOCFXCX) ,FYCY 2) evo 
E«0; END: 
PROCEOURE PLOT; BEGIN 
BEGIN Cx INITIALISATIONS #) 
CASE MOOE OF SCALE (0,279,0,191); 
L  :BEGIN PDIR (0): 
IF PENDOMÆFALSE THEN CMOVE(X,Y) 1 PENCUHCTE) : 
CORMY CX,Y) ;PENOOW 1= TRUE PENUP: 
EN; CMQUE (140,958) 
2,0:BEGIN EC. 
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Ecriture en page haute résolution 


Introduction 


La possibilité qu'offre l'Apple Il d'uti- 
liser des pages graphiques sur 280 x 
192 points est très souvent mise à 
contribution pour visualiser, de façon 
synthétique, des résultats numériques 
ou autres sous fonne de graphes. ré- 
seaux, diagrammes, etc. 


Malheureusement, il n'existe pas 
d'instruction  Applesoift pernnettant 
d'écrire dans les pages graphiques, et 
d'apporter simplement des commen- 
taires. titres, valeurs, sur nos travaux. 
HAIFA (Pom's 5) et DOS TOOL KIT 
(Apple) sont des uäillitaires pennettant 
d'écrire en page graphique, grâce à 
des POKESs, mais au prix d’une tabu- 
lation de type TEXT. 

Le but de cet article est de montrer 
comment écrire des mots à l'écran, 
tout en profitant de la haute résolu- 
tion. 


Principe 


L’instruction DRAW de l'Applesofit 
pennet de dessiner des fonnes conte- 
nues dans une table. Les fonnes sont 
définies par l'utilisateur et peuvent 
parfaitement représenter l'alphabet, 
les chiffres et caractères spéciaux. 
Ecrire un mot revient donc à dessi- 
ner, l'une derrière l’autre, de telles 
formes. 


Une table ASCILSET (de 755 octets) 
est proposée ici Elle contient 63 
formes représentant les 62 caractères 
de codes ASCII 32 à 94, définis dans 
une matrice classique de 5 x 7, plus 
un carré plein dont nous verrons 
l'utilité ultérieurement. 


La solution en Basic 
Méthode 


Soit à écrire en page haute résolution 
une chaîne de caractères, contenue 
dans la variable CH$, à la ligne YS, 
à partir de la colonne XS. La métho- 
dologie est la suivante : 


NS = longueur de CH$ 

. Pour IS allant de 1 à NS 

A$ = caractère No IS 

CS = code ASCII de A$ 

SS = CS — 31 

. Effacer un carré en XS - YS 

: ne la forme No SS en XS 
. Incrémenter XS et iS 

. SilS <= NS, retourner en 3 


00  HIOUP WIN m 


Sous-programme Applesoft 


Les paramètres d'appel sont : 
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e CH : chaîne à écrire 
e YS: ligne d'écriture 

e XS: lère colonne 

Les variables locales sont : 


e IS: indice du caractère 
e A$ : caractère courant 
e CS: code ASCII 

e SS : forme courante 


En sortie, XS est modifié. 


Dans le paragraphe suivant. nous 
condenserons cette routine. 


Utilisation du sous-programme 


Elle impose quelques servitudes : 


e chargement de la table de fonnes 
ASCILSET à une adresse choisie: 

© préciser cette adresse au système; 

e préciser : ECHELLE = 1 , ROTA- 
TION = 0; 

® protection de la table et de la 
page graphique utilisée. 


Plusieurs ‘cartes d'occupation” de la 
RAM sont possibles, selon la taille du 
programme Basic et la page graphi- 
que utilisée. 

Si AD est l'adresse de chargement de 
la table, alors AH% = (AD / 256) et 
AL% = (AD — 256 x AH%) dési- 
gnent respectivement les adresses 
haute et basse, et il faut préciser : 
POKE 232,AL% : POKE 233,AH%. 


Si l’on utilise une autre table de 
fonmes, ces deux instructions doivent 
être réexécutées à chaque écriture en 
page HGR. 

Il faut donc compléter notre routine, 
et nous en profitons pour en donner 
une version compacte : 


1 AD= PEEK (115) + PEEK (116) # 
256: IF PEEK (AD) = 63 THEN 
000 

2 AD = AD - 755 

3 PRINT CHR$ {4)"BLOAD ASCII .SET 
A"A0: HINEM: AD: 6070 1000 

99 REN --ROUTINE EN BASIC-- 

100 NS = LEN (CH$): RE LONGUEUR 

110 FOR IS = ji FO NS 

120 45 = NID$ (CH$,1S,1): REM EXTR 
ACTION 

30 CS = ASC (AS): REM CODE 

140 SS = ES - 3j: RE4 NUMERO SHAPE 

150 HCOLOR= 6: DRAW 43 AT XS,YS: REM 
EFFACE 

160 HCSLOR= 3: DRAW SS AT XS,YS: REM 
ECRIT 

170 XS = XS + 6: REM DECALASE 
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NEXT 1S 

RETURN 

REM --EN UNE LIGNE-- 

SCALE= 1: ROT= 0: POKE 232,AL 
: POKE 233,4: FOR 15 = 1 TO 
LEN (CH$): HCOLOR= 0: DRAW 63 
AT XS,YS: HCOLOR= 3: DRAW ASC 
C MIDS (CH$,15,1)) - 31 AT XS, 
YS:XS = XS + 6: NEXT : RETURN 


999 REM =PROS.PPAL= 

1000 HGR 

1001 ARX = AD / 256:ALZ = AD - 256 s 
AK: POKE 232,AUX{: POKE 233,AH 
4 

1010 HCGILOR= 3 

1020 VTAB 21: CALL - 958: INPUT 
CHAINE ";CH$: 1F CH$ £ ) "" THEN 
INPUT “LIGNE ":YS: IMPUT "COL 
ONE ":XS: G0SUB 200: 60TO 192 
0 


La solution en langage 
machine 


Le principe reste le même. 

Le programme est articulé autour de 
la routine DRAW, à l'adresse ROM 
$F601, qui dessine une forme conte- 
nue dans la zone mémoire dont 
l'adresse haute est versée dans le re- 
gistre Ÿ et l'adresse basse dans le re- 
gistre X, le paramètre de rotation 
(zéro) étant contenu dans l’accumu- 
lateur. 

L'utilisation de cette routine nécessite 
donc de connaître l'adresse de cha- 
cune des formes. 


Structure des tables de fonines 


Le calcul de l'adresse absolue de la 
forme numéro i s'opère de la façon 
suivante : 


e soit SHAPE l'adresse de début de 
table 

e on verse cette adresse en page 
zéro dans deux octets consécutifs, 
aux adresses TABLE et TABLE+1 

e on verse dans l'accumulateur le 
numéro i de la forme à dessiner. 
L'adresse relative de cette forne 
est contenue dans les octets 
"SHAPE + 2ÿ' et "SHAPE + 2i 
+ 1” (que l’on atteint par adres- 
sage indirect indexé). On obtient 
l'adresse absolue en ajoutant cette 
adresse relative à l'adresse 
SHAPE. 
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Le programme HGRECR.LIB 


Le programme source est listé ci- 
après. Le code objet donné dans la 
récapitulation, relogeable. intègre la 
table ASCIISET, celle-ci suivant la 
routine d'écriture proprement dite 
(longue de 168 octets). 


Commentaires 


— Lignes 48-59: nécessaires au cal- 
cul de l'adresse de ia table, puisque 
le programme est relogeable. Ce der- 
nier consulte la pile du microproces- 
seur pour connaî#ke sa propre 
adresse. En ajoutant la longueur de 
la routine, on obtient l'adresse de la 
table située à sa suite. Cette adresse 
est versée en TABLE =$CE et 
TABLE+1 = $CF, généralement 
libres. 


— Lignes 63-66 : on empile l'échelle 
et la couleur en cours, afin de les 
sauvegarder. 


— Lignes 72-83: on saisit dans le 
texte du Basic le nom de la variable 
alphanumérique à écrire. Le nombre 
de caractères est porté en LONCH, 
l'adresse de la chaîne en ADRCH (et 
ADRCH +1). 


— Lignes 87-92 / lignes 96-97 : saisie 
des coordonnées du premier carac- 


tère. Noter que X occupe 2 octets 
(PXH et PXL) et Y un seul (PY). 


— Lignes 101-102 : les caractères se 
dessinent à l'échelle 1 


— Ligne 104 : Y sert de compteur de 
caractères. 


— Lignes 106-109: le caractère cou- 
rant est empilé. 


— Lignes 113-119: efface avant 
d'écrire, en dessinant un carré (forme 
numéro 63) de couleur noire. 


— Lignes 124-129: on récupère le 
code ASCII du caractère sur la pile et 
on calcule le numéro de forme cor- 
respondant en déduisant #$1F (soit 
31), puis on la dessine. 

— Lignes 133-138: le décalage du 
caractère suivant s'obtient en incré- 
mentant l’abscisse X de la quantité 


#TRANS., ici fixée à 6. 


— Lignes 142-146 : on récupère le 
numéro du caractère sur la pile, on 
l’incrémente et on vérifie si la chaîne 
a entièrement été écrite ou non. 


— Lignes 150-155 : on restitue cou- 
leur et échelle en cours. Fin de rou- 
tine. 

— Lignes 159-162. modification 
classique du pointeur de pile dans les 
programmes relogeables. 


— Lignes 164-173: calcul de 
adresse absolue de la forme à dessi- 
ner, cette adresse est empilée provi- 
soirement. 


— Lignes 175-178: positionnement 
du curseur à l'écran. 


— Lignes 179-184 : dessine la forme. 
— Lignes 186-187: fin de procé- 
dure. 

— Lignes 189-190. c'est l’assem- 
bleur qui calcule pour nous la lon- 
gueur de la routine... sympa | 


Remarques 


HGRECRLIB ne modifie ni l'échelle, 
ni la couleur en cours dans le pro- 
gramme Basic. Îl est compatible avec 
une autre table de formes puisqu'il 
n'utilise pas les adresses $E8-$E9 
(232-233) 


Utilisation 


(1) Charger, selon la taille du pro- 
gramme Basic et la page HGR utili- 
sée, la routine HGRECRLLIB en mé- 
moire (adresse AD). 


(2) Protéger page graphique et rou- 
tine par LOMEM et/ou HIMEM. 


(3)-Suntaxe : 
CALE AD, CH. H, V 


la virgule sert de séparateur entre 
chaque paramètre. 

CH$ = variable alphanumérique 
contenant la chaîne à écrire. 

H = colonne du premier caractère. 

V = ligne d'écriture 

(H et V sont des expressions numéri- 
ques) 


(4) Limitations : 


e CH ne doit contenir que des ca- 
ractères dont le code ASCII est 
compris entre 32 et 94 (pas de ca- 
ractères de contrôle notamment) 

e Il n’y a pas de vérification de la 
longueur du mot : attention ! 


(5) Possibilités : 

On peut changer la police de carac- 
tères (utiliser des minuscules, des al- 
phabets étrangers ou spéciaux). Il 
suffit pour cela de remplacer la table 
existante par une autre à la suite du 
programme. La forme numéro 63 
doit être un carré plein. 

Voir HGRECR.DEM pour un exem- 
ple d'application. 


Etude comparative 
Occupation mémoire 


La ligne Basic condensée n'occupe 
que 96 octets, à comparer aux 168 
octets de la routine en langage ma- 
chine. Toutefois, on n'a pas pris en 
compte les variables auxiliaires que 
nécessite le Basic. 


Vitesse d'exécution 


Le test consistant à écrire les 1008 
premiers nombres à l’aide des deux 
procédés donne : 

BASIC : 1 minute 14 secondes 
MACHINE . 53 secondes 

ce qui est éloquent. 


Comparaison qualitative 


BASIC 

© tient en une ligne 

e modifie les paramètres HGR 

e nécessite un indice de boucle et 
des transferts de chaîne 


MACHINE : 

e syntaxe condensée 

e pas de modifcation des variables 
Basic 

e esthétique du programme 

e utilisation possible dans une biblio- 
thèque gérée par l'ampersand (&) 





Programme de démonstration 


25 H1 = HM - 923: HIMET# HM: PRINT 
CHRS (4)"BLOADHGRECR.LIB,A"HM 
: REM NEW.HIMEM 

30 DATA “EXEMPLE -> GANTT® ,*EXEMPL 
E —-> HISTOGRAMME" ,° EXEMPLE -> 
RESEAU" , SYNTAXE INSTRUCTION”®, 
POLICE CARACTERES" ,* DEMO.AUTO 


“, "RETOUR BASIC*:NC = é: DIM M 
&CNCD): FOR I = O0 TO NC: READ M 
SCI): NEXT 





15 HM = PEEK (115) + 256 # PEEK <« 35 DATA "TERRASSEMENTS”?, * FONDAT 1O0N 
116): REM HIMEM S" ," RESEAUX" , "MURS EXTERI EURS" 
20 IF PEEK (HM) = 32 AND PEEK <H s CLOISONS" , "PLANCHER"® , * COUVER 


M + 1 = 88 THEN 30 TURE* ,"FUMISTERIE® , "MENUISERIE 
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S° ,"ENDUITS" ," PEINTURES" : 
G#(10): 


40 


45 


60 
995 
1000 
1005 
1010 
1015 
1020 
1025 


1030 
1035 
1040 


1045 


1995 
2000 


2005 


2010 


2015 


2020 


2025 


2030 


2995 
3000 


3005 


3010 


3015 


3020 
3025 


3030 


3035 


DATA 


DIM 
FOR 1 = O0 TO 10: READ 
G$(1)2: NEXT 
10,30,30,60,60,80,100,150 
,170,200,50,100,30,160,40,120, 
140,60,80,150: FOR 1 = 1 TO i0 

: READ XCI): NEXT : FOR 1 = 1 TO 
10: READ Y(I): NEXT 


DATA "PARIS", "MARSEILLE" ," LYON" 


, "BORDEAUX" , "LILLE" , "TOULOUSE" 

, “STRASBOURG” , "RENNES" , * ORLEAN 
S* ,"LENS* ,"LE PUY": FOR 1 = 1 TO 
10: READ R#$(ID: NEXT 


GOTO 10000 


REM ---EXEMPLE--- 

HCOLOR= 1 

FOR 1 = O0 TO 10 
Y = 10 »* CI + 1) 

CALL HM,6G8(1),10,Y 

X1 = 100 + 15 % 1 +  RND (1) *# 
10:X2 = 200 + RND (1) * 79 

FOR J = - 3 TO 3: HPLOT X1,J 

+ Y TO X2,J + Y: NEXT 

NEXT 
AS = “UN EXEMPLE D’EMPLOI :°: 
HM,A5,50 , 1 30 
A$ = " DIAGRAME-GANTT ": FOR 
1 = 10 TO 170 STEP 6: CALL Hi, 
A$,1,150: NEXT 

RETURN 

REM ---SYNTAXE--- 
AS = "SYNTAXE DE L'’INSTRUCTION 
": CALL HM,A$,100,20: HPLOT 90 
,30 TO 250,30 
A$ = "CALL ADR,CHS,C,L°: 
H,A$,50,50 
AS = "ADR = ADRESSE DE CHARG 
EMENT DE LA ROUTINE": CALL H, 
A$,10,100 
A$ = "AS = VARIABLE ALPHNU 
MERIQUE À ECRIRE": CALL H,AS, 
10,110 
A$ = "C = COLONNE DU PREMI 

ER CARACTERE" : CALL H,A5,10,1 

20 
A$ = "L = LIGNE D'’ECRITURE 

"+: CALL 6,45 ,10,130 

RETURN 

REM ---POLICE--- 

REM ÀA$ = “CARACTERES DISPONIB 
LES :°: CALL HM,A5,100,20: HPL 

OT 90,30 TO 250,30 

HCOLOR= 3: FOR I = 0 TO 8: HPLOT 
30 * 1,0 TO 30 *# 1,191: NEXT : 

HPLOT 0,0 TO 240,0: HPLOT 0,2 

0 TO 240,20: HPLOT 0,191 TO 24 
0,191 
AS = "CARACTERES DISPONIBLES" : 

FOR I = 1 TO LEN (AS) :C$ = 
(AS,1,1): CALL HM,C$,250,8 * 1 
: NEXT 
A$ = "NO.": FOR ÏI = O0 TO 3: CALL 
HMH,A$,10 + 60 x 1,10: NEXT :AS 

= "CAR": FOR 1 = 0 TO 3: CALL 
HM,A$,40 + 60 * 1,10: NEXT 

FOR 1 = 1 TO 62 
NS = STRS (I)2:A4$8 = CHRS$S (I + 
31):Q% = (1 —- 13 / 4:RZ = (1 - 
1) —- 4 x GZ:X = 10 + 60 # RZ:Y 

= 30 + 10 *# «7 

CALL HM,NS,X,Y: CALL HM,AS,X + 
30 ,Y 

NEXT 


CALL 


CALL 


MIDS 
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3040 RETURN 

3995 REM --HISTOGRAM@ME-- 

4000 HCOLOR= 3: HPLOT 10,10 TO 10, 
150 TO 260,150 

4010 FOR I = 0 TO 4:Y4 = 150 — RND 


(1) # 140:Y$ = STRS$S (150 - YA 
D:X1 = 10 + 50 » 1:X2 = XI + 5 
0: HPLOT X1,150 TO X1,YZ TO X2 
,ŸYX TO X2,150: CALL HM,YS,50 * 
1 + 20,YX - 5 

4015 ST4 = C1 + 1): FOR L = Y£ TO 1! 
50 STEP ST-‘:2Z% = NOT 2%: FOR 
C = XI + 24 » ST TO X2 - ZX #* 
ST4 STEP ST + 1: HPLOT C,L: NEXT 
: NEXT : NEXT 

4020 A$ = "HISTOGRAMME": 
HM,A$,50 , 160 


CALL 


4700 RETURN 
4995 REM --RESEAU-- 
5000 HCOLOR= 3 
5005 FOR 1 = 1 TO 10: FOR J = 1 TO 
10 
5010 R = RND (1): IF R € .B AND R > 
.2 THEN HPLOT X{I),YC1) TO XC 
JT) 
5020 NEXT : NEXT { 
5030 FOR I = 1 TO 10: CALL HM,RS#(I 4 
>,XC12,YCID): NEXT E 
5040 ÀA$ = "RE S E À U°: CALL HM,AS 4 
,180,10 : 
5100 RETURN 1 
5995 REM --DEMO.AUTO-- 
6000 B = 1 : 
6005 HGR : POKE - 16302,0: ON B GOSUB F 
1000,4000,5000,2000 ,3000 ‘ 
6010 FOR 1 = 1 TO 1000: IF PEEK « + 
K) > 127 THEN RETURN : 
6011 NEXT 7. 
60158 = 8 + 1: IF 8 > S THEN B= 1 
6020 GOTO 6005 
9999 REM MENU. PPAL= 
10000 TEXT : NORMAL : HOME :S = - 
16336:KS = - 1636B:K = - 163 
84 
10010 GOTO 11000 
10020 FOR I = 1 TO 40: PRINT "-*;: 
NEXT : RETURN 
10030 INVERSE :X = PEEK (S) - PEEK 
(S) + PEEK (CS) - PEEK (S) 
10040 UTAB 10 + I: PRINT M#CI): NORMAL 
: RETURN 
11000 GOSUB 10020: PRINT "DEMONSTR 
ATION ECRITURES": PRINT °EN PA 
GE GRAPHIQUE HAUTE-RESOLUTION“ 
: GOSUB 10020 
11010 UTAB 10: FOR 1 = O TO NC: PRINT 


M#C1): NEXT 

11020 I = 0 

11030 GOSUB 10030: POKE KS,0: WAIT 
K,128: POKE KS,0:A = PEEK CK) 


: GOSUB 10040 

11040 IF À = 21 THEN Ï = 1 + 1: IF 
1 = NC + 1 THEN I = 0 

11050 IF À = B THEN [ = I — 1: IF 
f = - 1 THEN i = NC 

11060 IF À € > 13 THEN 11030 

11070 HGR : POKE - 16302,0: ON 1 + 
1 GOSUB 1000 ,4000,5000,2000, 30 
00,6000,12000: GET A$: GOTO 10 
000 

12000 HOME : TEXT : END 

D 


Assembleur Toolkit 1000:20 58 FF 48 DEBUT JSR RETURN 


1083:BA 49 TSX 
SOURCE FILE: HGRECR 1004:CA 50 DEX 
0000: i ;E.RINGOT LE 2/6/84 1005:CA 51 DEX 
0000: 2 1006:9A 52 TXS 
ses 1007:18 53 CLE 
0000: 3 ;ECRITURES DE CHAINES 1008:68 54 PLA 
0000: 4 ;EN PAGE HAUTE-RESOLUT 1009:69 Àé 55 ADC  #LONG 
I ON 1008:8S CE Sé STA TABLE 
0000: 5 ; 1000:48 57 PLA 
0000: 6 ;HGRECR.LIB RELOGEABL 100E:69 00 s8 ADC #0 
E 1010:85 CF s9 STA TABLE+I 
0000: 7 = 1012: 60 ; 
__———- 1012: 61 :<3°>-SAUVEGARDE ENVIR 
0000: 8 ; ONNEMENT HAUTE RESOLUTION 
0000: 9 ;MODE D‘EMPLOI 1012: 62 ; 
0000: 10 ; 1012:A5 Ed 63 LDA  HCOLOR 
0000: 11 ;SYNTAXE : CALL ADR, 1014:48 64 PHA 
CHS.X,Y 1015:A5 E7 65 LDA SCALE 
0000: L244 1017:48 éé PHA 
0000: 13 ;CHS=VARIABLE ALPHANU 1018: 67 ; 
MERIQUE 1018: 68 ;(4>-SAISIE ARGUMENTS 
0000: 14 iX  ABSCISSE 1018: 69 ; 
0000: 15 :Y  ORD@NNEE 1018: 70 ;4/1/EXPRESSION À EDIT 
0000: ié ; ER 
—--- NEXT OBJECT FILE NAME IS HGRECR.08J 1018: 715 
0 1013:20 BE DE 72 JSR  CHKCOM 
1000: 17 ORG %:000 1018:20 E3 OF 73 JSR PTRGET 
; POUR ASSEMBLAGE SEULEMENT 
1000: la; 101E:20 4C DD 74 JSR CHKSTR 
= 1000: 19 ;<1>-ROUTINES ROM 1021:A0 00 75 LOY #0 
+ 1000: 20 ; 1023:B1 83 76 LDA CUARPNT), 
14 0083: 21 VARPNT EQU 5933 Y 3; LONGUEUR 
: ;ÿPOINTE SUR LA LONGUEUR 1025:85 08 77 STA  LONCH 
M  OEBE: 22 CHKCOM EQU $DEBE 1027:C8 78 INY 
de IVERIFIE PRESENCE VIRGULE 1028:81 83 79 LDA  (VARPNT), 
DDéC: 23 CHKSTR EQU $DDéC Y ADRESSE BASSE 
;VERIFIE LA PRESENCE D’UNE CHAIN 1024:85 06 80 STA  ADRCH 
E 102C:C38 81 INY 
DFE3: 24 PTRGET EQU $DFE3 102D:81 83 82 LDA  CUARPNT), 
3SAISIT UNE VARIABLE Y 3ADRESSE HAUTE 
E{05: 25 GETINT EQU $%$E105 102F:85 07 93 STA ADRCH+1 
ÿSAISIT UN ENTIER SUR 2 OCTETS 1031: 84 ; 
EéFS: 26 GTBYTC EQU s$EéFs 1031: 85 ;4/2/ABSCISSE 
3SAISIT UN ENTIER SUR 1 OCTET 1031: 8é ; 
Fé01: 27 DRAU EQU $Fs01 1031:20 BE DE 87 JSR  CHKCOM 
1034:20 0S EI 88 JSR GETINT 
Fait: 28 HPOSN EQU $F411 1027:A5 A! 89 LDA  FACLO 
1037:85 E0 70 STA PXL 
FFS8: 29 RETURN EQU SFF58 1038:A5 AG g1 LDA  FACMO 
; INSTRUCTION RTS 1030:85 E! 92 STA PXH 
1000: 30 ; 103F: 93 ; 
1000: 31 :<2>-PARAMETRES 103F: 94 ;4/3/O0RDONNEE 
1000: CPE 103F: 95 ; 
0080: 33 FACMO  EOU  #A0 103F:20 F5 Eé 9é JSR GTS8YTC 
00AI : 34 FACLO EQU $Ai 1042:86 E2 97 STX PY 
00E0: 35 PXL EQU %E0 1044: 98 ; 
00 E1: 36 PXxH EQU $El 1044: 979 ;<5)>-ECPRITURE DE LA CH 
O0E2: 37 IP EQU $Ee2 AINE 
00CE: 38 TABLE  EQU $CE 1044: 100 ; 
;ET $CF 1044:A9 0! 101 LDA #1! 
00E4: 39 HCOLOR EQU $E4 1046:8S E7 102 STA SCALE 
00E7: 40 SCALE  EQU $E7 ; ECHELLE 
0006: 41 ADRCH  EQU $06 1048: 103 3 
0008: 42 LONCH  EQU #08 1048:A0 00 104 LDY #0 
31ER CARACTERE 
003F: 43 CARRE  EQU 63 104: 105 ; 
0006: 44 TRANS  EQU %6 104A:98 106 WRITE  TYA 
3TRANSLATION CURSEUR ; EMPILAGE 
1000: 45 ; 1048:48 107 PHA 
1000 : 46 ;<3>-ADRESSE TABLE DE ;3NUMERO CARACTERE 
FORMES 104C:B1 06 108 LDA  CADRCH) ,Y 
1000: 47 ; 104E:48 109 PHA 
A EEE 
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104F: POS 1079:68 150 PLA 
104F: 111 35/1/EFFACE UN CARRE 107A:85 E7 151 STA SCALE 
104F: 11204 107C:68 152 PLA 
104F:A9 00 113 LDA 508 107D:85 Ed 153 STA  HCOLOR 
107F: 154 ; 
1051:85 E4 114 STA  HCOLOR 107F :60 155 RTS 
; CSULEUR NOIRE 3OUI, RETOUR BASIC 
1053:A9 3F 115 LDA  #CARRE 1080 : 156 ; 
1055:20 S8 FF 1lé JSR RETURN 10 80 : 157 ;<72-PROCEDURE DE TRAC 
1058:50 26 117 8UC DESSIN E DE FORME 
105A:A9 7F 118 LDA #$7F 1080: 158 ; 
{COULEUR BLANCHE 1080 :8A 159 DESSIN TSX 
105C:85 Ed 119 STA  HCOLOR ; PROGRAMME 
105E: 120 ; 1081 :CA 160 DEX 
105€: 121 ;35/2/DESSINE LE CARAC ;RELOGEASLE 
TERE 1082:CA lé DEX 
105E: 122: $ ;CF.POM’S 7 
105E: 1231. 1083:9A 162 TXS 
105E:58 124 PLA 3PAGE 27 
105F:38 125 SEC 1084: 163 3 
1084:0A 164 as A 
1060:E9 1F 1 26 SRC 4#S1F ;DOUBLE LE NUMERO 
5CALCUL NUMERO FORME 1085:A8 165 TAY 
1062: 12274 1086:81 CE 166 LDA (TABLE) ,Y 
1062:20 58 FF 128 JSR RETURN ;jLS8 INDEX FORME 
1065:50 19 129 BUC DESSIN 1098:18 167 CLC 
1067: 130 ; 1089:65 CE 168 ADC TABLE 
1067: 131 ;5/3/TRANSLATION DU C 1088:48 169 PHA 
URSEUR 108C:C8 170 INY 
1067: 132 ; 108D:81 CE 171 LDA (TABLE) ,Y 
1057:18 133 CLC 3MSB INDEX FORME 
106S8:AS E0 139 LDA  PXL 108F:65 CF 172 ADC TASLE+!I 
106n:69 06 135 ADC  #TRANS 1091:48 173 PHA 
106C:85 E0 136 STA PXL 1092: 174 ; 
104E:D0 02 137 BNE SUITE 1092:A6 E0 175 LDX PXxL 
1070:E6 E1 138 INC  PXH 1094:A4 E1 176 LDY PXH 
1072: 139 : 1096:A5 E2 177 LDA PY 
1072: 140 ;5/4/CARACTERE SUIVAN 18998:20 11 F4 178 JSR  HPOSN 
T 109B:68 179 PLA 
1072: 141 ; 109C:A8 180 TAY 
1072:68 142 SUITE  PLA 1070:68 181 PLA 
;DEPILE LE NUMERO CARACTERE TOPESRS 18e Tes 
1073:A8 143 TAY 109F:A9 00 183 LDA #0 
1074:C8 149 INY 3ROTATION NULLE 
> CARACTERE SUIVANT 10A41:20 01 Fé 184 JSR  DRAUW 
1075:C4 08 145 CPY  LONCH 1044: 185 ; 
;EST-CE-FINI ? 10h4:2C 58 FF 186 8IT RETURN 
1077:00 D1 146 BNE WRITE 104 7:60 187 RTS 
ÿNON ! ON CONTINUE 10AB: 188 ; 
1079: 147 ; 1048: 189 SHAFE  EQU * 
1079: 148 ;<6>-RESTITUTION ENUVIR | 006: 190 LONG EQU  SHAPE-DEB 
ONNEMENT HAUTE RESOLUT I1ON De 
1079: 149 ; 
1088- 18 65 CE 48 C8 Bi CE 45 1128- 58 49 02 00 S2 22 20 24 
HGRECR.LIB 1090- CF 48 A6 E0 Ad El AS E2 1130- 2C 00 08 24 1F 36 06 00 
1098- 20 11 F4 68 AB 68 AA A9 1138- 3A 67 3C OC 6C BE 20 1E 
1000- 20 58 FF BA CA CA 9A 18 10A0- 00 20 01 Fé 2C 58 FF 60 1140- 2E 1E FE 2C 00 E7 OC 25 
1008- 648 69 A6 85 CE 68 69 00 1048- 3F 00 80 00 84 00 8A 00 1148- 15 FS AB 15 1F 15 3F 77 
1010- 85 CF AS E4 48 AS E? 48 1080- 90 00 9D 00 AA 00 85 00 1150- 29 00 OC OC DC 38 2E 96 
1018- 20 BE DE 20 E3 DF 20 é6C 1088- C1 00 CS 00 CD 00 DS 00 1158- 17 40 2E 24 00 60 1C BF 
1020- DD A0 00 81 83 85 08 C8 10C0- E2 00 EA 00 EE 00 F3 00 1160- AE 17 76 65 1C OD 16 07 
1028- Bi 83 85 06 C8 81 83 85 10C8- Fé 00 FD 00 0B 01 13 01 1168- 00 08 24 05 00 92 1C IC 
1030- 07 20 BE DE 20 05 El AS 1000- 1D 01 28 01 32 01 3E 01 1170- 24 QC OC 06 00 92 OC OC 
1038- A1 85 E0 AS A0 85 El 20 1008- 48 01 51 O1 SC 01 67 01 1178- 24 1C IC 06 00 3C 1C 4C 
1040- F5 Eé 86 E2 A9 01 85 E7 10E0- 6B 01 70 01 79 O1 81 Oi 1180- 6E 1E 16 3F 17 0OD O0 DE 
1048- AO 00 98 48 B1 06 48 A9 10E8- BA 01 94 O1 A1 01 AD 01 1188- 07 00 20 8D 34 3F 77 31 
1050- 00 85 E4 A9 3F 20 58 FF 10F0- 89 01 C4 Of DO 01 DD 01 1190- 05 00 89 Fé 04 00 3F 4C 
1058- 50 26 A9 7F 85 E4 68 38 10F8- E7 O1 F2 O1 FE 01 07 02 1198- 11 35 00 12 0S 00 OC 0C 
1060- E9 1F 20 58 FF 30 19 18 1100- 0F 02 1C 02 25 02 31 02 11A0- Dé DA 1E 06 00 OC 25 1C 
1068- AS E0 69 06 85 E0 DO 02 1108- 30 02 49 02 53 02 SF 02 1148- 3F 17 36 2E 1E 0E 20 0C 
1070- Eé El 68 A8 C8 C4 08 D0 1110- 6C 02 77 02 80 02 88 02 1180- 24 07 00 24 BC 96 31 17 
1078- DI 68 85 E7 68 85 E4 60 1118- 96 02 A2 02 AE 02 87 02 1188- 20 04 00 65 E4 3F 17 95 
1080- 8A CA CA JA 0A AB 81 CE 1120- C2 02 CA 02 Di 02 D9 02 11C0- 8A 2E 20 25 00 25 0C 3C 


[TAG BI LL I RL 
‘éme is .! eve 
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: 
Le 


Tæ 
LE 


STE hs 





11C8- 3F 87 92 15 20 OC 24 00 
1100- 34 27 OC OC 0C 36 36 F5 
1108- 3E 00 38 27 2C 20 FS 
11E0- 36 1E 3F 1C 04 00 AD F4 
11E8- 3F 1C 24 25 OC OC 35 00 
11F0- OC 0C 3C 3F 77 92 36 05 
11F8- 00 E7 64 20 IS 8E 15 Fé 
1200- 3F 1C 2C 00 E7 64 20 iS 
1208- 36 77 1E 17 3F 04 00 0B 
1210- 16 06 00 08 ié BE 05 00 
1218- 91 E2 1C 1C OC OC OC 06 
1220- 00 38 67 89 85 3F 3F 04 
1228- 00 93 62 OC OC 1C IC 1C 
1230- 06 00 OC OC 1C 3F 17 95 
1238- 04 16 05 00 30 2E 2C 24 
1240- 1C 3F 17 36 36 0E 20 25 
1248- 00 3À 37 6E 09 24 67 E4 
1250- 1C 1E 1E 2E 00 3F 24 2C 
1258- 20 135 BE 0E 8E 3F 27 2C 
1260- 00 B9 F2 3F 1C 24 24 OC 


1268- 20 15 06 00 09 36 1E 3F 
1270- 27 24 24 2C 20 15 3E 00 
1278- 39 87 3A 24 24 24 20 20 
1280- 96 92 3F 04 00 39 87 14 
1288- 24 24 24 20 2D 0é 00 1i 
1290- 35 3E 3F 1C 24 24 0C 20 
1296- 35 00 28 20 24 FC 18 34 
1240- 36 36 4D 21 24 00 52 34 
1248- 67 24 24 3C 20 06 00 98 
1280- 72 20 OC 24 24 3C 00 73 
1288- 0E 15 DF 23 24 24 6C 09 
12C0- 1E 1E 06 00 89 12 3F 3F 
12C8- 24 24 24 0S 00 EO 1C 36 
1200- 36 36 4D 25 24 24 8C 0é 
1208- 00 0E 56 24 24 24 DF 33 
12E0- 2E 1E 36 2E 00 92 E7 24 
12E8- 24 0C 20 15 36 36 17 05 
12F0- 00 63 3C 38 3F 36 2E E 
12F68- 36 05 00 AA 135 1F 3F 20 
1300- 24 64 2D 15 36 36 00 77 


1308- 135 15 DF 23 24 24 2C 20 
1310- 15 BE 06 00 E7 64 20 15 
1318- 97 15 Fé 3F 1C 04 00 24 
1320- 1F 28 20 FS 92 33 2E 00 
1328- 92 E7 24 24 6C 09 36 36 
1330- 8E 05 00 92 1C 1C 24 24 
1338- 40 31 36 BE 06 00 Fé 1E 
1340- 24 24 24 40 31 36 BE 35 
1348- 07 00 OC 0C FC 18 76 16 
1350- 17 6E 09 E4 04 00 1C 1C 
13358- 6C 09 Fé Dé 36 0S 00 0C 
1360- OC 3C 3F 77 92 37 2E 20 
1368- 25 00 24 2C BS D2 33 2E 
1370- 20 00 1€ 1C 56 4R 0E 0é 
1378- 00 24 3C 87 S2 31 3E 3F 
1380- 00 25 3F 36 20 25 24 3F 
1388- 3F 36 36 2D 2D 25 24 24 
1390- 3F 3F 3F 36 36 36 20 20 
1398- 20 05 00 85 





DISK CHECK-UP 


Alexandre Avrane 


Mieux vaut prévenir que guérir. pa- 
raît-il. et que celui d'entre vous qui 
n'a jamais vu le message | O ERROR 
apparaître sur son écran me Jette la 
première pierre 


Les disquettes courantes sont {théori- 
quement) certifiées pour une durée 
utile d'une soixantame d'heures 
Mais comme personne n'a le courage 
de déclencher un chronomètre à 
chaque appel au DOS. il est bien dif- 
ficile d'en évaluer l'état d'usure 


Le programme DISK CHECK-UP vé- 
rifie les disquettes initialisées par 
DOS 3.3. Pascal. ProDOS. CPIM. 
MEMIDOS et autres systèmes d'ex- 
ploitation de l'Apple reposant sur la 
PROM 16 secteurs et son standard 
de formatage physique Il indique 
l'état physique de vos disquettes 
Mais. à la différence des utilitaires qui 
fournissent la liste des secteurs illisi- 
bles et éventuellement quelques mé- 
thodes pour les récupérer en partie, 
ce programme donne. à l'avance. 
une indication sur l'intégrité physique 
de vos disquettes et leur usure. En 
revanche. l'intégrité logique. en parti- 
culier les pointeurs utilisés par le sys- 
tème d'exploitanon pour relier le di- 
rectory aux fichiers. n'est bien 
entendu pas contrôlée. 


Fonctionnement du DOS 


Le DOS de l'Apple est un animal pa- 
tient et bien dressé: pour calmer la 
tension nerveuse de son utilisateur. il 
ne lui fournit le dramatique message 
d']O ERROR qu'après avoir vaine- 
ment tenté 96 fois de lire le secteur 
demandé. Plus exactement. il essaie 
d'abord 48 fois puis, s'il n'est pas en- 
core parvenu à obtenir correctement 
le secteur, il recalibre le bras de lec- 
ture {c'est le bruit vibrant et très dé- 
sagréable car souvent annonciateur 


de catastrophe) pour effectuer à nou- 
veau 48 tentatives 


Contrôles effectués 


Le programme demande au DOS 
d'observer l'ensemble de la disquette 
et relève. pour chaque secteur, le 
nombre de tentatives infructueuses 
Normalement, ce nombre doit être 
très faible. il s'affiche en hexadécimal 
(0. 1. .F). en mode normal pour la 
plage de valeurs 1 à 16. en inverse 
pour 17 à 32. en flash pour 33 à 48 
Les valeurs 1 et 2 sont affichées par 
un simple point () afin d'aérer 
l'écran Toute autre valeur affichée 
en mode normal (donc inférieure à 
16) n'est pas inquiétante immédiate- 
ment. En revanche, si le programme 
affiche des secteurs en inverse ou en 
fash. il devient urgent de faire une 
copie de la disquette. Le programme 
ne se préoccupe pas des valeurs su- 
périeures à 48 car celles-ci ont dé- 
clenché je recalibrage du bras de lec- 
ture et il est alors fortement 
déconseillé de continuer à utiliser la 
disquette. Si la tentative de lecture se 
solde par un échec complet. un ‘?” 
est affiché en flash 

Théoriquement. un secteur est ob- 
tenu avec succès après 8 tentatives 
en moyenne: en effet une piste 
contient 16 secteurs et la tête de lec- 
ture peut se trouver à n'importe 
quelle position sur la piste. Néan- 
moins, et afin d'accélérer le temps 
d'exécution, le programme est mi- 
nuté de manière à minimiser le nom- 
bre de lectures, en gérant le secteur 
demandé selon la position de la tête 
En conséquence. seul le secteur 0 de 
la piste O doit. théoriquement. pré- 
senter un nombre non négligeable 
d'accès. 

Les valeurs obtenues sur les autres 
secteurs de la piste zéro. et sur les 
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autres pistes. doivent normalement 
être très faibles: elles dépendent non 
seulement de l'usure physique de la 
disquette, mais également de la clé 
de traduction entre numéro de sec- 
teur logique et secteur physique 
{c'est un paramètre interne utilisé lors 
de l'initialisation d'une disquette) 
Dans tous les cas. ces valeurs doivent 
étre inférieures à 16 pour indiquer 
une qualité correcte. 


Exécution 
du programme 


Le programme se lance par un sim- 
ple BRÜN DISK CHECK-UP.M et se 
charge en $900. Il nécessite que le 
DOS 33 soit chargé en mémoire 
(éventuellement sur la carte langage) 
L'utilisateur indique simplement les 
numéros de slot et de drive conte- 
nant la disquette à vérifier, puis le 
nombre de tentatives de lecture pour 
chaque secteur s'affiche. Dans tous 
les cas. RETURN valide la saisie, 
ESC annule l'opération en cours. 
Pour mieux apprécier l'exécution du 
programme, ouvrez légèrement et 
quelques instants la porte du lecteur 
et observez le résultat! 

Le fichier DISK  CHECK-UPS 
contient le source en Big Mac Le 
fonctionnement interne du  pro- 
gramme repose sur l'examen de 
l'adresse $578 {(RETRYCNT) utilisée 
par RWTS 


Quelques derniers 
conseils 


Ce programme est destiné à prévenir 
les problèmes d'usure. il n’a malheu- 
reusement pas la faculté de savoir 
que vous poserez un électro-aimant à 
côté de vos disquettes demain matin, 
où que celles-ci vont être empruntées 
par votre petit dernier pour cons- 
truire son château de cartes... 

D'autre part. si vous décidez de 
contrôler. à l'aide de ce programme, 
l'ensemble de votre bibliothèque, ne 
vous arrêtez pas après avoir vérifié 
les quelques disquettes les plus utili- 
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sées: si celles-ci étaient réellement 
usées, il est probable que vous auriez 
déjà eu des ennuis. Les problèmes, 
comme disait Murphy, ne survien- 
nent que sur les disquettes que vous 


sûr, au moment où vous en avez ra- 
pidement besoin. 


Conclusion 
Ce programme ne doit pas induire 


illusoire: il détecte les ennuis latents 
mais n'empêche pas leur apparition: 
ce n'est ni un anti-moustiques, ni un 
traitement contre la rouille 





























n'utilisez quasiment jamais et. bien une impression de sécurité qui serait 
Assembleur Big Mac 2$ 
27::CR = $80 
: LST OFE 28 ESC = 398 
2 29 BLANK = x. à 
D 226 0626 DD DD DD DD DD DD DD DE DD DD DEN DH 30 
4 * DISK CHECK-UP * 31 8ASL = $28 
SD DD DD DD DD DD DE DD DD DD DE DD DE DE DH 32 TRAP = $4B 
$ | 33 GORUTS = $309 
7 # Copyright [C] 1984 À. Avrane 34 DOS = $3EA 
8 35 RETRYENT = $578 
9 # M.A,.J, : 14/07/84 36 SYMBOL = $680 
10 # Creation:09/05/84 37 KEYBOARD = $C000 
1 38 STROBE + $C010 
12 # Ce programme v{rifie 39 PRBL?2 = $F94A 
43 *# l’intCgritc physique de toute 40 BASCALC = $FBCI 
14 # disquette formatie 16 secteurs, 41 HOME = $FCSe 
15 # en affichant le nombre d’essais 42 AIT = $FCAB 
16 * requis par RWTS pour lire 43 COUTO = $FDFO 
17 # chacun de ses secteurs. 44 SETUID = $FE93 
18 * 45 ORG #$900 
19 # Affichage des rCsultats en 46 
20 * normal si <lé, inverse si d>1é 47 # Initialise format ecran 
21 # et <32, flash sinon, Pour Île 48 * =====-==== PRES RE 
22 * premier calibrage. 49 START JSR SETUID 
23 * Code ? et S si i/o error. so JSR HOME 
24 51 LDX #14 
25 LOWCASE = 1 Se JSR  PRBL2 set x=0 
——+ 
TRANSMETTEZ-NOUS VOS TEXTES 
PAR TELEPHONE TT — 
; 
DONNEZ-NOUS VOTRE DISQUETTE 0 
Les textes de vos articles, catalogues, annuaires ou brochures 
saisis sur votre APPLE sont envoyés directement sur notre photocom- 
poseuse, 
Nous vous évitons ainsi, le coût et le temps de la saisie supple- 
mentaire que nécessite le traitement traditionnel de [a photocompo- 
sition avant l'impression des documents, si vous le désirez nous pou- 
vons également nous charger de l'impression et du brochage. 
NOTRE RÉFÉRENCE... LA REVUE POM'S THECOMP. [1] 320 fe (b) 
ae GESTION DE FOMERÉ 1j 
MAFFRIE À DE 
Rues ou DE DORE FRANEMENT DE TEXTES 
gens 
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DVI1"2 LDA MSGI ,X 
BEQ  DUI2 
JSR COUTA 
INX 
BNE DUI11°2 =jmp 
# Demande slot, drive, format 
RO SI === See 
DVI 2 5 * 
LDX #B+560 
JSR GETKEY 
BCS GOEXIT 
8EQ DVI2°1 
PHA 
ORA 580 
STA MSGSLOT 
PLA 
ASL 
ASL 
ASL 
ASL 
STA  IOBSLOT 
OUI 2"I LOX #23+$80 
DU12°2 JSR GETKEY 
GOEXIT BCS EXIT 
BEQ DV2*°0 
CMP #3 
BCS DLUI2°2 
STA  IOBDRIVE 
ORA  #+$60 
STA MSGDORIVE 
*#* Boucle sur les pistes 
+ =====s=ss2s=ss=z=sss=2=222z= 
DU2°0 LDA #0 
STA  IOBTRACK 
STA  IOBLVOL 
*# Boucle sur les secteurs 
+ ==2=s2=ss22==22=s22222=z2=xzs 
DU2* 1 LOY #$FF 
STY  SECTPTR 
DU20*°2 INC SECTPTR 0-15 
LOY  SECTPTR 
CPY #16 ast? 
BCS DUV31°9 
LDA SECTABL,Y 
STA  IOBSECTR 
ADC #8 carry=0 
JSR BASCALC set bas! 
LDA  KEYB8OARD 
BPL DV20*3 
CMP  #ESC 
BNE DUV20°3 
STA  STROSE 
BEQ EXIT =jmp 
GOSTART 8EQ START 
DU20 *3 LDA #)108 
LDY #<I08 
JSR  GORUTS 
8cS DV31°3 
LOY  RETRYCNT $01-530 
DEY 
LDA TSLVALUE,Y 
DV31 "2 LDY  IOBTRACK 
INY 
INY 
STA  (BASL) ,Y 
BNE  DU20°2 = jmPp 


126 
127 
128 
129 
130 
131 

132 
133 
134 
135 
136 
137 
138 
139 
140 
141 

142 
143 
144 
145 
146 
147 
148 
149 
150 
151 

152 
153 
154 
135 
156 
157 
158 
159 
160 
1é1 

162 
163 
164 
165 
léé 
167 
168 
169 
170 
171 

172 
173 
174 
175 
176 
177 
178 
129 
180 
181 

182 
183 
184 
185 
186 
187 
188 
189 
190 

191 

192 
193 
194 
195 
196 
197 
198 


DV31°3 = * 
LDA IOB*STAT 
LSR 
LSR 
LSR 
LSR 
TAY 
LDA TBLSTAT,Y 
BNE DUV31°2 =Jmp 
0V31°9 = * 
INC  IOBTRACK 
LDA  IOBTRACK 
CMP  #$23 
BCC DU2*I 
* Autre disque ou quitte 
+ ==2n2=2neELsELEE======== 
EXIT = #% 
LDX #30 
LOOPEXIT LDA MSG2-30 ,X 
BEQ LOOPX "0 
STA SYMBOL-#80 ,X 
INX 
BNE LOOPEXIT =yJmp 
LOOPX"0 STA TRAP 
LOOPX"1 EDX #38 
JSR GETKEY 
8CcS BYE 
8EQ GOSTART = Jmp 
BYE JSR HOME 
JMP DOS 
*#* Saisie touche / curseur special 
À === = —— 
GETKEY STX SCREENI 
STX SCREEN2 
LDA #°<* 
BNE  PUTKEY =jmp 
WAITKEY LDA SYMBOL 
SCREENI = *-2 
EOR #1 
PUTKEY STA SYMBOL 
SCREENZ = x-2 
LDA #é 
JSR UWAIT 
LDA  KEYBOARD 
BPL  WAITKEY 
STA  STROSE 
PHA 
LDA  #8LANK 
STA  SYMB80L-580.X 
STA  STROBE 
PLA 
CMP  #HESC 
BEQ CHECKEY2 carryæ!i 
CMP  #KCR 
BEQ CHECKEYI 
CPX ##80 
8CC GETKEY 
CMP #"1" 
BCC GETKEY 
CMP #"S" 
BCS GETKEY 
STA  SYMBOL-S1:100 ,X 
AND #/0000111! 1 thru 7 
CHECKEYI CLC 
CHECKEY2 RTS 
DS 5 + 5 1 5 SZ 2 2 D 2 + D + + à : | 


SECTPTR DFB 0 
SECTABL DFB 


0,$E,#0,5C,5B,%A,9,8, 
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7,6r59,3,2,1,8F 244 ASC "_" 
199 245 DFB CR.CR 
200 TBLVALUE = # 246 INU " PISTE 11 
201 FLS “FEDCBA9876543210" t1111111411111222* 
202 INV “FEDCBA9876543210" 247 DFB CR 
203 ASC *“FEDCBA?S8765432. ." 248 INVU “  0123456789ABCDEF01 
204 TBLSTAT = # 23456789ABCDEF012"* 
205 FLS "_PU_?7___ S" 249 DFB CR 
206 250 INU  *“so" 
207 108 = # 251 DFB CR 
208 DF8 1! 252 INU  ‘“E1i" 
209 IOBSLOT DFB é6*$10 253 DFB CR 
210 IOBDRIVE DFB 1 254 INU  “C2* 
211 IOBVOL DFB 0 255 DFB CR 
212 IOBTRACK DFB 0 256 INU "T3" 
213 IOBSECTR DOF8 0 257 DFB CR 
214 DA DCT 258 INV  *E4" 
215 DA  $2000 259 DF8 CR 
216 DFB 9,0 260 INU "US" 
217 DF8 1 261 DFB CR 
218 I10B*STAT DFB 0 262 INU_ "Ré" 
219 DF8 O0 263 DFB CR 
220 DF8 6*$10 264 INU "7" 
221 DFB 1 265 DFB CR 
222 DCT DFB OO, 266 INU  " 8" 
223 DA  $DBEF 267 DFB CR 
224 268 INU  * 9" 
225 MSG! L # 269 DFB CR 
226 INU "DISK CHECK-UP" 270 INU  " À" 
227 DF8 CR,CR 271 DFB CR 
228 DO LOWCASE 272 INU  “ 8" 
229 ASC “ Copyright [C1 1984 273 DFB CR 

Aiexandre Avrane" 274 INU  “ C" 
230 ELSE 275 DFB CR 
231 ASC "“ COPYRIGHT [C1 1984 276 INU  " D" 

ALEXANDRE AURANE" 277 DFB CR 
232 FIN 278 INU  *“ E" 
233 DF8 CR,CR 279 DFB CR 
234 DO LOWUCASE 280 INU  “ F" 
235 ASC “ Stot:_" 281 DFB 0 
236 MSGSLOT ASC "é" 282 
237 ASC: Drive: _" 283 MSG2 DQ  LOWCASE 
238 ELSE 284 ASC "Encore?* 
239 ASC "“ SLOT:__" 285 ELSE 
240 MSGSLOT ASC “é* 2846 ASC "ENCORE?" 
241 ASC "__ DRIVE: _" 287 FIN 
242 FIN 288 DF8 OO 
243 MSGDRIVE ASC "1" 289 END 
Récapitulation 0980- F5 85 4B A2 26 20 C2 09 0478- D9 D2 C9 C7 C8 D4 A0 DB 

0988- 850 02 F0 B4 20 58 FC 4C 0A80- C3 00 A0 B1 8? ES 84 A6 
09C0- Eh 03 BE CR 09 8E D2 09 0A88- A0 C1 CC CS D8 Ci CE Ca 

0900- 20 93 FE 20 S8 FC A2 0€ 09C8- A9 A8 DO 05 AD 89 04 49 0A90-+- D2 CS A0 Ci Dé D2 Ci CE 
0908- 20 4A F9 BD 65 0 F0 06 09D6- 0ft 8D 80 0é A9 06 20 AB 0A98- CS 8D BD A0 D3 CC CF D4 
0910- 20 FG FD E8 DO F5 A2 88 0908- FC AD 00 CO 10 EE 8D 10 0OAAO- RA DF OF Bé DF DF A0 A0 
0918- 20 C2 09 80 1S FG 0E 48 09E0- CO 48 A9 A0 9D 00 06 8D 0AAB- A0 A0 C4 D? C9 Dé CS & 
0920- 09 89 8D A3 0A 68 0A 0A 09E8- 10 CO 68 C9 98 FO 16 C9 0A80- OF DF 81 OF DF 80 ®D 20 
0928- OA 0A 8D 51 0A A2 97 20 09F0- 8D FG 11 EO 80 90 CB C9 0A88- 20 10 09 13 14 05 20 20 
0930- C2 09 80 70 F0 OC C9 03 09F8- 81 90 C7 C9 88 B0O C3 9D OACO- 20 20 20 20 20 20 20 20 
0938- 60 F5 8D S2 0A 09 80 8D 0RA00- 80 05 29 OF 18 60 00 00 OAC8- 20 31 31 3i 31 31 31 31 
0940- 82 OA A9 00 8D S4 0A 8D 0A08- 0E O0OD OC 08 0A 09 08 07 0OADO- 31 31 31 31 31 31 31 31 
0948- 53 0A A0 FF 8C 06 OA EE 0A10- 0é 05 04 03 02 01 OF 4é 0OAD8- 31 32 32 32 8D 20 20 30 
0950- 06 OA AC 046 OA CO 10 80 0A18- 45 44 43 42 41 79 78 77 OAE0- 31 32 33 34 3S 36 37 3e 
0958- 41 89 07 OA 8D 55 0A 469 0A20- 76 75 74 73 72 71 70 Oé OAE8B- 39 0t 02 03 04 05 05 28 
0960- 08 20 C1 F8 AD 00 CO 10 0A28- 05 04 03 02 01 39 38 37 OAFO- 31 32 33 34 35 346 37 38 
0968- 0B C9 98 DO 07 8D 10 Co 0A430- 36 35 34 33 32 31 30 Cé 0OAF8- 39 01 02 03 84 05 04 30 
0970- F0 32 FO B8C AS DA A0 50 0A38- CS C4 C3 C2 Ci 89 88 87 0E00- 3} 32 RD 13 30 2D 05 31 
0978- 20 D9 03 80 10 AC 78 05 0A40- 86 85 B4 83 82 AE AE SF 0808- 80 03 32 à0 14 33 3D 05 
0980- 88 89 17 OA AC 54 0A Ce 0À48- 50 56 SF 7F SF SF SF 53 0B810- 34 8D 15 35 2 12 34 8D 
0988- C8 71 28 00 C2 AD 50 0A 0A50- 01 60 01 00 00 00 61 0A 0818- 20 37 €D 20 33 SD 20 39 
0990- 4A 4A 4A 4A AB 89 47 DA 0AS56- 00 20 00 00 01 00 00 60 0820- 3D 20 01 &8 20 0? 8D 2a 
0998- 00 EA EE 54 0A4 AD 54 0A 0A60- 01 00 01 EF D8 04 09 13 0828- 03 8D 20 04 38 70 05 8D 
09A0- C9 23 90 Aé A2 !E BD 15 0OA68- 08 20 03 08 05 03 08 20 0830- 20 05 00 CS CE C2? CF p2 
09A8- 08 F0 06 90 00 06 E8 DO 0A70- 15 10 8D 8D A0 C3 CF DO 0838- CS 8F 00 
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Tout ce que 
VOUS avez 
toujours 
voulu savoir. 











Apple et GMS c'est une rencontre. 
Apple c'est toute une gamme d'ordi- 
nateurs personnels pour profession- 
nels. 

L'Apple Le et son jeune frère compact 
l'Apple Ze. Ils sont très sérieux pour la 


gestion, la tenue des stocks ou le trai- 
tement de texte. 

Et puis il v a Macintosh et sa souris. 
On clique sur la souris, on appelle le 
programme. Tout un menu est affi- 
ché par symboles. les éléments sont 


Buena CES 


Informatique GMS 212-214 avenue Daumesnil 75012 Paris. 





simples et les combinaisons infinies. 
Enfin il y a GMS, une équipe de pro- 
fessionnels qui vous accueilleront et 
vous conseilleront personnellement. 
Alors tout ce que vous avez toujours 
voulu savoir. 345.28.52. 


Apple 


Macintosh. 


QUX SSGUELA CAYZAC & GARARS 


La réputation de Pom's vient-elle de 
faire un saut quantitatif ? La presse 
micro-informatique devient-elle folle ? 
Nous ne savons quelle en est la 
cause principale. mais nous avons 
reçu depuis le début du mois de sep- 
tembre une vingtaine de livres nou- 
veaux. portant pour la plupart d'en- 
tre eux explicitement sur l'Apple 
Nous avons donc dû effectuer une 
sélection, les autres ouvrages étant 
purement cités à la fin de la biblio- 
graphie. 


Expériences d'intelligence Artifi- 
cielle en Basic. de John Krutch, 
Editions Evrolles - 119 hages 

Le plus surprenant avec l'intelligence 
Artificielle (prononcez “IA” pour faire 
dans le vent), c'est que personne n'y 
est indifférent. les uns y voient l'une 
des plaies d'Egypte. les autres y devi- 
nent le point de départ du futur àue 
d'or 

Ce livre tente de démythufier ce sujet 
et propose au lecteur de se lancer 
immédiatement dans les travaux pra 
tiques. en exécutant quelques pro- 
grammes en Basic Comme fan- 
nonce le titre. il ne s'agit pas d'être 
exhaustif. mais de démontrer quil 
nest pas nécessaire de disposer d'un 
ordinateur de grande puissance et de 
maîtriser un langage spécialisé (type 
LISP}) pour aborder ce theme 

Les sujets présentés sont variés : mé- 
thodes d'évaluation des programmes 
de jeu de dames ou d'échecs {mini 
max, alpha-beta}, résolution d'analo- 
gies (‘Socrate est un homme: tous 
les hommes sont mortels. donc ‘}. 
générateur de poésies (création de 
quelques alexandrins. malheureuse 
ment souvent très sybillins). voire de 
romans policiers 

Le livre termine ces expériences en 
exposant les mécanismes du célébre 
programme DOCTOR (parfeis diffusé 
en France sous le nom de FREUD). 
où l'ordinateur engendre les ques- 
tions d'un psychanalisté en fonction 
des réponses précédentes du patient 
humain 

Les programmes inclus sont trés 
structurés. de mamére à faciliter les 
modifications. [ls sont destinés à l'on 
gine au Basic du TRS #0. mais une 
annexe permet une traduction en 
Applesoft il est cependant dommage 
qu'ils n'aient pas été traduits en fran 
çais 


20 progiciels-outils pour l'Apple 
IE. par Jean-Louis Marx & Alam Fhi 
bault. Editions du PSI 248 payes 
-122FF 

Un des problèmes de l'Apple. c'esl 
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-ne souliez pas-la richesse de sa bi- 
bliothèque de logiciels. En effet. le 
client potentiei a souvent la crainte 
de choisir un programme qui ne lui 
conviendrait pas et. devant le nom- 
bre de progiciels disponibles sur 
Apple et donc la possibilité de se 
“tromper. il choisit parfois un autre 
matériel où il n'existe qu'un seul pro- 
gramme : ‘sil ny en a qu'un. Cest 
quil est bon!” 

Ce livre se propose d'aider le futur 
acheteur à sy retrouver parmi la ga- 
laxie de progiciels disponibles sur 
Apple. Seuls les produits de grande 
diffusion en France sont abordés: 
ceux-ci sont présentés en quatre fa- 
milles 

1) les tableurs : Visicalc et Multiplan: 

2) les traitements de texte: Apple 
Writer, Ka-Texte. WordS- 
tar MailMerge et Plume Îl 





43) les gestionnaires de fiches  Visifile, 
PES File Report. Visidex, L'Organisa 


teur. @mnis. dBsse 1! et CX-Base 
200: 

4) les autres: Factor. AppleWorld, 
Graphor. Visitrend Visiplot 


PFS:Graph et Typing Tutor 


On remarque donc de grands ab 
sents (DB Master. Magic Window. 
etc.) Les nouveaux produits {appa 
rus depuis quelques mois Jane. 
Apple Works. Epistole. ..] manquent 
également (mais tout va si vite !) 
Chacun des logiciels est evalué de 
maniére identique selon une dizaine 
de critères (decumentation. perfor 
mance à l'impression. sécunté. etc.] 
que le lecteur deit. par la suite. pon 
dérer selon l'importance qu'il leur at 
tache 

Cas rare dans ce type de comparatif 
la configuration minimum nécessaire 
à chaque produit est précisément dé- 
taillée (ce qui a tout de même une 
certaine importance s l'on envisage 
d'utiliser dBase |] par exemple) 
Certainement utile aux gestionnaires 
désireux de choisir rapidement un 
progiciel. ce livre aurait cependant 


Bibliographie 


Alexandre Avrane et Alexandre Duback 


+ dt 


ménté d'être étoffé par l'analyse de 
quelques produits supplémentaires 


Applesoft Basic for the Apple Il 

e. par Lois Graff & Lanv Joel 
Goldstein. chez RJ Brady Co. - 328 
pages - $2075 


Voici un excellent livre d'initiation à 
l'Applesoit : clair. précis et avec de 
nombreux p'ogrammes-exercices 
Mais son problème. vous l'avez de- 
viné. c'est la langue : l'anglais est ra- 
rement le favori des débutants en in- 
formatique D'autre part. il existe 
déjà de nombreux ouvrages similai- 
res parus en France 

Cependant ce livre n'est pas sans in- 
térêt. mème pour les anglophobes. 
car il apprend au lecteur à analyser 
un problème et à structurer la solu- 
tion, au lieu de se précipiter devant 
le clavier pour taper quelques centai- 
nes de lignes mal comprises. 
Parallèlement. les instruchons. du 
Basic Applesoft et du BOS 3.3 sont 
étudiées: malheureusement certaines. 
telles que WAIT. HIMEM. P@S et 
l'&. sont (volontairement ?) ignerées 
Une carte de référence plastifiée est 
jointe 


P-Source, a guide to the Apple 
Pascal System. par Randall Hyde. 
chez Reston Publishing (Prentice 
Hall} - 462 pages - $24.95 


Débutants s'abstenir' Ce livre n'est 
pas un guide d'initation au Pascal 
sur Apple, mais S'ädresse aux pro- 
grammeurs systèmes désirant connai- 
tre leur machine sur le bout de leurs 
16 doigts 

Une excellente connaissance du Pas- 
cal est nécessaire avant d'en aborder 
la lecture: en particulier. ce livre ne 
commence pas son exploration là où 
se terminent les manuels d'Apple. 
mais bien au-delà, Dès la première 
page. il part défricher l'allocation mé- 
moire de l'interpréteur p-code. puis 
enchaine  gaillardement vers une 
étude ethnologique des variables en 
Pascal 

Après quelques conseils pour accélé- 
rer les programmes. ce manuel pro- 
pose plusieurs utilitaires en assem- 
bleur pour la mise au point des 
procédures. puis fournit une étude 
détaillée de chaque instruction ma- 
chine du p-code Enfin. les routines 
de l'interpréteur sont décortiquées. et 
quelques dernières astuces de pro- 
grammation achèvent le tout 

Cet ensemble représente. à ma 
connaissance, le manuel le plus dé- 
taillé sur le fonctionnement interne 
du Pascal Il est certainement dom- 
mage quil manque d'approche pé- 
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dagogique. mais ses 450 pages bien 
tassées pourront éviter à certains de 
faire un stage de perfectionnement à 
l'Université de San Diego 


Visicalc Applications, de Stanley 
Trost. traduit par Jean-Pierre Loison. 
chez Sybex - 274 Pages - 148 FF. 


Enfin une traduction bien faite: cela 
vaut le coup d'être souligné, le travail 
étant trop souvent effectué par des 
tâcherons mal payés (Ce livre 
s'adresse aux utilisateurs de Visicalc 
déjà compétents et leur apporte de 
nombreux tableaux commentés et 
accompagnés de listes permettant de 
les reconstituer 


Ciefs pour Visicalc. par Jean- 
Louis Marx et Alan Thibault, Edi 
tions du PSI - 101 pages - 100 Fi 
Clefs pour Multiplan. par Jean 
Louis Marx et Alan Thibauk, Edi 
tions du PSI - 127 Pages - 100 FF 


Ces deux ouvrages comptent parmi 
les seuls que nous connaissions. en 
langue française. dans lequels l'utili- 
sateur peut trouver un certain nom- 
bre de ‘trucs’ d'utilisation Il s'agit 
d'ouvrages de référence. où toutes 
les commandes sont analysées dans 
l'ordre alphabétique et commentées 
en détail 

Nous conseillons l'utilisation de ces 


Les nouvelles 


Alexandre Duback 


Poms vous présente aujourd'hui 
trois nouvelles disquettes : un éditeur 
plein écran, la version 2 du Disk Ma- 
nager (enfin) et une disquette Macin- 
tosh. la première d'une longue série. 
Saviez-vous que les disquettes de 
Poms sont les disquettes les plus 
vendues en France ? 


Disk Manager version 2 
Prix: 450 francs Echange gratuit 
avec DM] 


La version 2 du Disk Manager rem- 
place enfin à partir de ce numéro la 
version |, dont l'expérience a prouvé 
qu'elle n'était hélas pas exempte de 
bugs. Afin de ne pas léser les ache- 
teurs de la première version, Pom's 
offre gratuitement la seconde version 
à tout acheteur de la première  ren- 
voyez (après en avoir fait une copie 
de sécurité) la disquette originale 
reçue de Pom's et une enveloppe au 
format 23+ 16 avec votre adresse et 
timbrée à 3,50 francs. Vous recevrez 
gratuitement la nouvelle version 


Editeur plein écran 
De C. Levyo. Prix 150 francs 


Cette disquette contient un excellent 
programme pour éditer un pro- 
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Clefs” pour se renseigner sur telle 
ou telle commande. ou trouver la ré- 
ponse à une question précise. 


Memento Multiplan. par P Bon- 
net et MT Dinh. chez Edimicro - 
108 pages - 78 FF 


Nous retrouvons ici les mêmes objec- 
tifs que dans les deux ouvrages pré- 
cédents. mais on à du mal à vorr ce 
que ce livre apporte de plus que la 
documentation du programme Multi- 
plan. Reportez-vous donc aux ouvra- 
ges précédents 


The Visicalc Applications Book 
for the Apple /'e. par Jack Grush- 
cow. chez Reston Publishing (Pren- 
tice Hall} - $16.45 


Ce livre en anglais comporte une 
première partie d'apprentissage de 
Visicalc, suvie de six exemples ap- 
profondis : suivi de règlements. ana- 
lyse financière d'entreprise. prévision. 
plan. trésorerie et gestion de porte- 
feuille Ouvrage bien fait: malheureu- 
sement. les exemples ne sont pas 
forcément transposables à l'environ- 
nement français 


Autres titres 


dBase Il sans embüches. par G 
Gngoneff - Evrolles - 176 pages - 


disquettes de Pom’s’; 


gramme Basic en plein écran Vous 
listez votre programme Basic. le fai- 
sant défiler à tout instant en marche 
avant ou en marche arrière. l'arrêtant 
quand vous voulez Vous effectuez 
les changements directement sur 
l'ensemble de l'écran. les comman- 
des étant lancées (comme dans le 
Program Line Editor - Pom's 1) par 
des touches de contrôle 


Les commandes sont nombreuses 

début de programme. fin de pro- 
gramme. marche avant, marche ar- 
ère. destruction. insertion, entrée de 
caractères de contrôle. effacement de 
fin de ligne, accès aux commandes 
DOS. recherche de chaînes... Les ca- 
ractères de contrôle dans les instruc- 
tions apparaissent en inverse 


Une particulanté que nous appré- 
cions beaucoup : un programme spé- 
cifique permet à l'uhlisateur de choi- 
sir lui-même les caractères de 
contrôle des commandes 


Disquette Macintosh 
Prix: 150 francs. 


Avec le développement du dossier 
Macintosh. ïil était inévitable que 
nous vous proposions aussi une dis- 


=== 


115 FF 
Du style avec Wordstar. par RB. 
White Jr. - Eyrolles - 232 pages - 
150 FF 


Forth pour micros. par JM. de 
Geeter - Evrolles - 192 pages - S0 
FF 

L'art des bases de données. par 
S. Miranda et J.M. Busta - Evrolles - 
248 pages - 180 FF 

Les systèmes de gestion de 
bases de données. par J Akota - 
Evrolles - 320 pages - 170 FF. 

The Apple /;e personal computer 
for beginners, par Seamus Dunn et 
Valerie Morgan - Prentice Hall - 251 
Pages - $12.95 

Handbook of Apptesoft Basic for 
the Apple Il and le. par Roy Earl 
Myers et David Schneider - Prentice 
Hall - 321 pages - $16.45 

Apple programming for learning 
and teaching (over 50 applica- 
tion programs). par Frederick Bell - 
Reston (Prentice Hall) - 305 pages - 
$ 22.05 

Le Basic bien programmé. par 
A.P. Stephenson - MicroDunod - 
120 pages - 65 FF. 

Basic Microsoft et Basic ANSI. 
par MMaiman - MicroDunod - 165 
pages - 80 FF 
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quette Macintosh. Cette première dis- 
quette comporte les programmes pu- 
bliés dans les numéros 14 et 15, 
ainsi que le programme Disk Copy 
{copie rapide de disquettes avec un 
seul lecteur) et la police de caractères 
Cairo. grâce à laquelle vous pouvez 
vous exprimer en images (voir le ca- 
hier Macintosh) Jusqu'à saturation 
de cette disquette, nous y mettrons 
automatiquement teus les program- 
mes Mac de Poms, ainsi que de pe- 
tites surprises, utilitaires, polices de 
caractères, 


Disquette Pascal 
Prix : 80 francs 


Suite aux requêtes de nombreux lec- 
teurs. nous avons regroupé dans une 
disquette unique tous les program- 
mes Pascal publiés dans Pom's 
depuis le début. Cela vous évitera de 
transférer les programmes du DOS 
3.3 vers le Pascal. 

Les fichiers TEXT sont au recto de la 
disquette et les fichiers CODE au 
verso: ainsi, il n'y aura pas de pro- 
blème de compilation E 
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Apple, quoi de neuf ? 


Après un Macintosh de 512K, né 
quatre mois avant terme, que pré- 
pare-t-on chez Appie ? Les meilleurs 
limiers de la presse micro-informati- 
que américaine sont sur le coup. 
Pour l'heure, le silence. de rigueur à 
Cupertino. laisse libre cours à toutes 
les supputations. 


Côté Macintosh. on prévoit des lec- 
teurs de disquettes double face: la 
capacité passerait de 400 à 800K. 
D'autre part. le plus exaspérant des 
problèmes de Macintosh, la lenteur. 
est partiellement dû au système d'ex- 
ploitation qui figure sur chaque dis- 
quette programme. Le fait d'avoir sur 
la disquette une partie du système 
est par contre un avantage car on 
peut aisément en changer pour. par 
exemple. adapter un programme à 
un clavier AZERTY. Les projets en 
cours consisteraient donc à intégrer 
les systèmes au Macintosh, pour en 
débarrasser la disquette et obtenir 
ainsi un accès plus rapide aux infor- 
mations. Une fois résolus les problé- 
mes de capacité et de vitesse. Apple 
pourrait. dit-on. se pencher sur 
l'adaptation de la couleur au Mac. 


Côté Apple Il, on attend pour la fin 
de l’année les nouveaux accessoires 
du //c et, notamment. l'écran à cris- 
taux liquides disposant de 25 lignes 
d'affichage. Si on ne l'a pas vu plus 
tôt, c'est simplement que son fabri- 
cant, le Japonais Sharp a subi un re- 
tard de six mois dans la mise au 
point de cet accessoire. Pour le //e, 
on reste muet à Cupertino sur les dé- 
veloppements du processeur 65816 . 
qui permettrait de le convertir en une 
machine 16 bits. Problèmes de mise 
au point où approche du dénoue- 
ment ? 


D'autres études portent sur la capa- 
cité des lecteurs de disquettes. Au 
moment où IBM parvient à stocker 
1.2 Mo sur une disquette de 5 
pouces 1/4, la mini-capacité du lec- 
teur du Il (143K), devient probléma- 
tique. On peut donc s'attendre très 
prochainement à voir cette capacité 
augmenter notablement. La difficulté 
consiste seulement à maintenir la 
compatibilité avec les disquettes exis- 
tantes. En attendant. voici des nou- 
veautés pour tous les Apples. 


Moniteur couleur 


La nouveauté de l'automne. c'est 
aux Etats Unis le nouveau moniteur 
couleur sorti par Apple : le moniteur 
100. Esthétiquement, il ressemble 
beaucoup au moniteur monochrome 
du //e . Son écran est inclinable de la 
même façon mais, cette fois, un petit 
moteur se charge de l'opération {le 
tube est beaucoup plus lourd) et il 
suffit de presser une touche pour que 
l'écran s'incline vers le haut ou vers 
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Micro-informations 


le bas. Pour faire fonctionner ce mo- 
niteur. il faut bien sûr disposer d'une 
carte couleur {ou d'une carte Chat 
Mauve). 


Ce moniteur est vendu aux Etats 
Unis un prix respectable 600 dol- 
lars. soit, pas beaucoup moins de 
6000 Francs au cours actuel du billet 
vert. L’explication d'Apple: il s'agit 
d'un des rares moniteurs couleur à 
fournir en texte la qualité d'un moni- 
teur monochrome. particulièrement 
en 80 colonnes On peut désormais 
se contenter d'un seul moriteur pour 
les jeux. les graphiques ou les activi- 
tés professionnelles. En 80 colonnes. 
un switch permet de choisir la cou- 
leur de l'affichage : bleu. jaune. etc. 
Un bouton permet de passer du mo- 
nochrome à la couleur 


Disques durs 


Pour disposer d'un stockage de don- 
nées. ou de prograrnmes accessibles 
rapidement. le disque dur est la solu- 
tion. Les prix commencent à baisser 
sensiblement. Ainsi. le modèle pré- 
senté par la firme britannique Dering 
propose une capacité de 10 Mo pour 
un prix de 1095 Livres, soit environ 
14300 F. Pas cher l'octet. 


Côté clavier 


Vous pouvez remédier à la faible ca- 
pacité du buffer du clavier de l’Apple 
l'e: il vous suffit d'intercaler le Type 
Ahead Buffer TABI de Trac Sys- 
tems Corp entre votre clavier et sa 
prise sur la carte mère. Pour seule- 
ment 45 dollars. 


Et si l’on pouvait se passer carrément 
du clavier ? Pourquoi ne pas entrer 
les données en donnant de la voix ? 
C'est possible avec le Voice Input 
Module de Cascade Graphics. 1] suf- 
fit de parler pour que l'enregistre- 
ment des instructions se fasse. Vous 
dites “Catalog” et la disquette affiche 
son contenu à l'écran. Le système se 
compose d'une carte. d'un casque, 
d'un micro et de logiciels. Il peut être 
utlisé sur l'Apple Il. mais aussi sur le 
l'e (il faut dans ce cas enlever quel- 
ques circuits). Principal défaut : il ne 
supporte que la VO {c'est à dire l'an- 
glais) et peut se révéler sourcilleux 
sur la prononciation. 


La pince à tiercé 


Enfin. un petit instrument vendu 69 
francs permet {à ceux qui ont épuisé 
les charmes de la pince à tiercé et 
qui ne veulent pas se lancer dans la 
construction du double switch) de 
doubler là capacité de leurs disquet- 


Jean-Michel Gourévitch 


tes. Il découpe automatiquement au 
bon endroit l'encoche qui permet au 
lecteur d'accepter la disquette pour 
enregistrement. Attention, il vaut 
mieux vérifier ensuite la surface de la 
deuxième face avec un utilitaire 
(genre Locksmith). et ne pas l'utiliser 
pour des informations capitales: la 
garantie du fabricant de disquettes ne 
s'applique pas au verso. 


Des yeux pour le Macin- 
tosh 


BIP distribue la caméra de digitalisa- 
tion Microneye. vendue 5300 FF 
HT avec son interface et son logiciel. 
Cette caméra digitalise une image 
(qui doit être contrastée) et la trans- 
forme en image MacPaint. donc mo- 
difiable à loisir. Elle fonctionne aussi 
à la lumière artificielle et à l'infra- 
rouge. On peut reprendre un docu- 
ment de la taille d'une photo d'iden- 
tité. Parfait pour une utilisation avec 
le gestionnaie de fiches MacBase de 
Contrôle X, qui permet de mettre 
des images dans les fiches. 


Des yeux pour tous 


Palette. limageur électronique cou- 
leur Polaroid, permet d'obtenir des 
diapositives instantanées ou des 
photos papier à partir de nombreux 
logiciels courants (TGS. Décisionnel 
Graphique. Visiplot. etc...) ou d'ima- 
ges numérisées. 


Des cordes vocales pour 
l'Apple // 


Ediciel vient de sortir la première 
carte de synthèse vocale en langue 
française pour Apple. le Porte-Pa- 
role. Non seulement elle parle fran- 
çais, mais pour lui faire dire à peu 
près correctement ‘1 write on the 
blackboard”’, il faut écrire ‘Aille raillte 
onn ze blakbaurde”! Nous reparle- 
rons de cette carte. 


Un écran portable pour 
le //c 


Après avoir déjà prouvé son origina- 
lité avec le StaduP, un Apple //e 
portable, LE.F. à présenté au Sicob 
un moniteur portable pour //c avec 
une batterie incorporée d'une auto- 
nomie d'environ 4 heures. Certes. 
cet écran est sensiblement plus volu- 
mineux que le //c. mais il comporte 
une batterie. ce qui ne sera pas le 
cas de l'écran plat du //c toujours at- 
tendu en France. Prix 2590 FF HT. 
Voir la photo de couverture de ce 
numéro. 
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Des programmes 
une souris 

I n'aura pas fallu attendre très long- 
temps pour voir apparaître des pro- 
grammes utilisant la souris équipant 
le ‘eetle c. 


pour 


Version Soft (le créateur d'Epistole) 
présente ainsi VersionCalc. le pre- 
mier tableur souris pour le //c. Il pos- 
sède une fonction graphique et per- 
met de cumuler des tableaux et des 
graphiques. Le tout s'effectuant avec 
la souris et des menus qui rappellent 
fuñeusement le Macintosh Attention. 
l'utilisation de ce logiciel sur un e 
(méme avec une souris) peut pro- 
duire des effets surprenants 


Dazzle Draw. de Broderbund. pré- 
sente un écran rappelant lui aussi le 
Macintosh et permet. à condition de 
disposer d'une souris (ou d'un joys- 
tick, d'une tablette Koala, etc...) et 
de 128K. de dessiner à l'écran. sur 
plusieurs fenêtres de surcroit. Le tout 
pour un pnx ‘canon 50 dollars 
seulement 


Enfin. dernière conquête de la souris. 
Summergames dEpyx, presente 
tout simplement les jeux olympiques 
Epreuves de natation. de saut à la 
perche, de tir. etc... On choisit la na- 
tionalité (18 pays possibles) des 
concurrents avec la souris. on joue 
avec le même instrument Après cha- 
que victoire. FApple vous joue 
l'hymne national du gagnant. et cal- 
cule la moyenne des médailles obte- 
nues Graphiques et couleurs ex- 
traordiriaires. Il y a même une 
cérémonie d'ouverture ! 


Plus classique 


Papyrus est la version francisée 
d'Homeword. un traitement de textes 
avec icônes. Certes. ce n'est pas le 
plus sophistiqué des traitements de 
textes. Pourtant. sa facilité d'emploi 
en fait un logiciel hors du commun 
D'abord, parce qu'on peut, pour 
chaque action. choisir un icône sur 
lequel on se déplace avec le curseur 
Mais. heureusement. des codes per- 
mettent aux clavistes expérimentés 
de court-circuiter ces icônes et de ga- 
gner en rapidité Un bon point En- 
suite, ce traitement de textes permet 
d'afficher à l'écran le texte tel quil 
sera imprimé. C'est suffisamment 
rare pour mériter un second bon 
point. Enfin, lorsqu'on lui tape un ac- 
cent circonflexe suivi d'une voyelle. il 
vous affiche à l'écran la voyelle avec 
son accent circonf.exe Bravo! 


Si on ajoute que Papyrus permet 
d'insérer dans un texte un document 
qui se trouve déjà enregistré sur dis- 
quette (Macwrite, le premier traite- 
ment de texte du Macintosh. ne le 
fait pas directement}, qu'il permet les 
caractères gras. soulignés. l'efface- 
ment des mots et des lignes. et peut 


mème automatiquement numéroter 
des paragraphes indentés. on peut 
s'estimer satisfait du bilan Tout au 
plus peut-on lui reprocher. en saisie 
de textes, une certaine confusion à 
l'écran Lorsqu'on change de carac- 
tères (passage en souligné. gras. 
etc.) et quil faut revenir au carac- 
tère normal. ce passage s'inscrit en 
clair à l'écran, ainsi que les RE- 
TÜURNs Reste que pour taper sim- 
plement une petite lettre. ce pro- 
gramme na guère de concurrent 
D'autant qu'il ne coûte que 850 
francs. Fortement recommandé 


Parmi les programmes intégrés. à si- 
gnaler Magic Officed Artsci. qui 
comprend un traitement de textes. 
un tableur. des graphiques et un dic- 
tionnaire de correction. le tout claire- 
ment présenté en tiroirs dessiers. 
avec des possibilités de couper-coller 
entre documents Bien mieux pré- 
senté qu'Appleworks. mais il ne lui 
manque que Quickfile : il ny a pas 
de gestionnaire de fiches 


Depuis peu. the Team de U-Micro- 
computers. offre un traitement de 
textes. un gestionnaire de fiches. des 
possibilités de calcul et un graphisme 
Le tout fonctionnant en Pascal pour 
Apple Il Plus. eet c 


À remarquer encore le logiciel de 
correction d'orthographe automati- 
que Sensible Speller de Sensible 
Software. contenant 80000 mets sur 
un seul disque (une performance sur 
143K!)]. C'est malheureusement en 
anglais. et il reste encore à inventer 
un de ces logiciels de correction en 
français Le Sensible Speller fonc- 
tionne avec la plupart des program- 
mes de traitement de textes et coûte 
quelques 125 dollars 


Le programme Spelling Handler. 
de ALS (Sunnyvale, Californie) fait 
encore mieux avec 90 000 mots ! 


Jeux d'aventures 

Enfin. deux jeux d'aventure de créa- 
tion française : Epidémie et Para- 
noïak Du niveau des jeux d'aven- 
ture américains selon les critères du 
scénario. des graphiques et du son 
Edités par Froggy Software et distri- 
bués par Shift Editions. Fonctionnent 
sur Il Plus. /'e et //c. Prix: 350 FF 
TTC pièce 


Imprimante à marguerite 
Kardex vient de sortir une machine à 
écrire/imprimante à marguerite éco- 
nomique à 5 000 FF HT prix public 
conseillé. l'AE 355. offrant de nom- 
breuses possibilités. Elle fonctionne 
en parallèle. mais on peut acquérir 
un boîtier pour la connexion série 
avec un buffer de 2K (1 500 FF HT) 
ou 4K (1 700 FF HT) Une margue- 
rite est fournie d'origine, mais 9 
autres sont disponibles. Vitesse d'im- 
pression: 14 cps. Trois pas d'écri- 


AE 
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ture : 10. 12 et 15. 


Un modèle récent. l'AE 385. vous 
offre pour 1 000 FF HT de plus des 
caractères gras. un espacement pro- 
portionnel et une impression bidirec- 
tionnelle 


Deux logiciels un peu 
particuliers 


Le Biofeedback de  Syunapse 
comporte un bandeau à placer sur le 
front, contenant des capteurs. et me- 
sure le niveau de stress de l'utilisa- 
teur de l'Apple :_ Le résultat s'affiche 
sur l'écran en courbes et graphiques 
Un stress qui commencera avec 
l'achat : prix 150 dollars 


Le Smarthome de Cyberlunx. per- 
met lui d'automatiser un apparte- 
ment et de le contrôler avec l'Apple 

c En se servant de la souris. et 
avec des icônes, on contrôle l'électri- 
cité et les sytèmes d'alarmes antivols 
Prix : 499 dollars. 


Adresses 

Alpha Systèmes - 29. bd Gam- 
betta - 38000 Grenoble - Tél (76) 
43.19.97 


B.I.P. - 13. rue Duc - 75018 Paris - 
Tél 255 4463 


Broderbund Software - 17. Paul 
Drive. San Rafael - CA 94903 - 
USA 


Cascade Graphics Development 
- 185 lower Richmond Road. Rich- 
mond - Surrey - GB 


Contrôle X - Tour Maine Montpar- 
nasse - 33 avenue du Maine - 
75755 Pans Cedex 15 - Tél 538 
9887 


Cyberlynx - 4828 Sterling Drive, 
Boulder - CO 80301 - USA. 


Ediciel Matra Hachette - 22, rue 
la Boétie - 75008 Paris - Tél 260 
0032 

LE.F. - 193. rue de Javel - 75015 
Paris - Tél 828 0601 

Kardex - 201. rue Carnot - 
Fontenay sous Bois. 
Sensible Software - 24011 Seneca 
Oak Park - Mi 48237 - USA 
Synapse - 5221 Central Avenue 
Richmond - CA 94804 - USA 

Trac System Corp. - 444 North 
3rd Street, suite 201. Sacramento - 
CA 94814 - USA, 
U-Microcomputers - Winstanley 
Industnal Estate, Long Lane. War- 
rington - Cheshire WA2 8PR - GB 
Version Soft - 68. rue Castagnary - 
75015 Paris - Tél 530 0528 

Froggy Software - 33. avenue Phi- 
lippe Auguste - 75011 Paris 
Polaroid France - 4. rue j-P Tim- 
baud, BP. 47 - 78391 Bois d'Arcy 
Cedex - Tél (3) 460 6166 

Shift Editions - 27, rue du Général 
Foy - 75008 Paris (El 
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Utilisateur d'AppleWriter sur une 
Oki84. je ne parviens pas à imprimer 
le é” L'Oki84 ne semble en effet 
pas reconnaître le caractère de ‘dé- 
placement à gauche Ctri-H. utilisable 
avec les autres imprimantes. 


Jean-Marie Hasquenoph - 77500 


Chelles 


Avec les Oki, le backspace ne fonc- 
tionne pas. Par contre, sur mon Oki 
92 (ce devrait être la même chose 
pour une 84). j'obtiens comme vous 
venez de le voir un “8” en appuyant 
sur un tréma (non suivi d'une lettre). 
Pour tester toutes les possibilités de 
caractères de votre imprimante, créez 
un fichier avec toutes les touches de 


votre clavier, en mode normal. puis 
Shift. puis Ctrl puis Ctrl-Shift et 
enfin Esc. 


Vous aurez peut-être des surprises 
avec votre imprimante (dans ce cas. 
enlevez ce qui ‘plante  limpri- 
mante). mais cette recherche systé- 
matique peut vous permettre de 
trouver des solutions à des problè- 
mes tels que le précédent 


Vends Apple I Plus avec carte lan- 
gage (16K). joystick. paddles. moni- 
teur et deux lecteurs de disquettes. 
Prix 13.500 F à débattre. 


À. Avrane - 124 quai Louis Blériot - 
75016 Paris. 


Vends Apple /c état neuf encore 
sous garantie (cause double emploi) 
avec moniteur et stand moniteur. 
Prix 11.700 F. Possibilité de souris et 
second lecteur. Téléphone 956 80 
00. poste 645. 


Vends Apple H Plus avec moniteur 
Sanyo vert, deux lecteurs et un 
contréleur DOS 3.3. carte communi- 
cation asynchrone (CCS) et carte 
langage 16K. Prix 10.000 F TTC. 
Vends machine à écrireimprimante 
Olympia  ESW1@8-KSR (interface 
série) Excellent état. Prix 8.000 F 
TTC (Achat 14.587 F). 

Bruno Lemaire. Tél (3) 956.80.00. 


Vends Apple Il Plus avec moniteur 
Philips ocre, deux lecteurs et un 
contrôleur DOS 3.3. cate langage 
Microsoft, carte RVB en option. Prix 
8.500 F TTC. Tél (3) 952.59.31. 
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Courrier des Lecteurs 


L'utilitaire  APA  d'APPLESOFT 
TOOLKIT comporte un bug. En 
effet, il est impossible d'obtenir la 
liste des variables (fonction &XREF) 
si la prégramme analysé contient des 
DATAs. L'addition des deux lignes 
BASIC ci-dessous au programme 
LOADAPA autorise la référence croi- 
sée dans tous les cas : 

115 HI = PEEK (115) + 256 & 
- 6: HINR4: HI 


PEEK {116) 


315 POKE KI,32: POKE HI 4 2, PEEK HI - 
1170): POKE HI - 1170,HI / 256: 
POKE HI + 1, PEEK CHI - 1171): PO 
KE HI - 11714] - 256 x PEEK (HI 
- 1470): POLE HI « 3,201: POKE K 
1 + 4,0: POKE H1 + 5,96 


Yvan KOËENIG - avenue du stade - 
06220 VALLAURIS 





Je suis en train d'écrire un pro- 
gramme gestionnaire de fichiers et 
deux problèmes se posent à moi : 

1) Je voudrais que mon programme 
puisse me dire à tout moment 
combien de secteurs restent libres sur 
la disquette : comment faire ? 

2) J'aurais également voulu que le 
RESET agisse comme un RUN. La 
routine de RUN étant implanté en 
D566. j'ai converti ce nombre en dé- 
cimal. et j'en ài poké les poids fort et 
faible aux adresses 1818 et 1011 
POKE 1010.102 et POKE 1011.213 
suivi de CALL — 1169. Ceci prevo- 
que bien un RUN à chaque RESET 
mais les ordres du DOS s'affichent 
alors à fécran et ne fonctionnent 
plus. Comment y remédier ? 


Olivier LEDOUX - 135/12 rue du 
Gal Leclerc - 59798 RONCHIN 


1} Dans le Pom's 2 en page 17. figu- 
rent différentes modifications du 
DOS. en particulier le “patch” néces- 
saire pour obtenir le nombre de sec- 
teurs disponibles dans le CATALOG. 
Vous trouverez ci-dessous le listing 
qui réalise la modification ]1l suffit 
alors d’initialiser votre disquette avec 
ce nouveau DOS. 


L@ RE rem seau ea ne au ae au ea aa aa aa a aa 
- 

« SECTEURS LIBRES * 

- - 

. A CHAQUE - 

20 REM «* - 
- CATALOG - 

- . 

+ + 


1002 10e 10e 1e 10 21 104 ne 1e 104 na 194 104 104 194 104 14 10e 


T9 REM 


Alexandre Duback 
35 HOME : LIST 10.20 
100 YS = "ASS4:5B N ADC:: T0 00 BE 
N BS00:A2 gC 720 4R F9 À9 00 
85 40 8S 4&i AO CS 18 89 F2 
8: FO OE OA S0 FB 48 E6 40 D 
9 92 ES 41 68 12 S0 FD 2$ DO 
ES A6 40 AS 41 _ AC 00 EO CO 
20 DO 07 20 ip ES 20 2F AE & 
S 20 24 ED 20 2F RE 60" 
119 GOSUB 6:900 
120 o FLE "OK'': END 
6:S0 REM 
ROUT NE MONITEUR 
6:305 REM APPLESOFT DE S.H. LAM 
SET YS = YS + “ N D9EC6G* 
62320 FOR I = 1 TO DOS CY#) 
653:0 POP SEE + I, ASC ( MIDS € 


VS Lr1)) 128 
6z sa NEXT 3 POKÉ 720: CAL - 


62350! RETURN 


2) Les POKESs que vous utilisez pro- 
voquent en effet un RUN lors du 
RESET. Toutefois, le RESET ‘dé- 
connecte” Îles entrées/ sorties du 
DOS. CALL 1002 au début de votre 
programme résoudra votre problème. 
Cependant, il est bon de préciser 
qu'un RESET dans un programme 
qui travaille sur disquette n'est pas 
prudent, surtout en cours d'écriture. 


Je recherche un logiciel d'astrologie 
professionnelle exploitable sur Apple 
/'e. Je sais qu'il en existe un en fran- 
çais. Pouvez-vous me le confirmer ? 
Joël Moreau - 7 rue d. Moævse - 
44100 Nantes 


Peut-être un lecteur peut-il nous ré- 
pondre ? 





J'ai fondé à New Delhi une société 
spécialisée dans la recherche acousti- 
que et l'ethnomusicologie. qui utilise 
de façon intensive les micro-ordina- 
teurs. Apple entre autres. Je voudrais 
signaler à tous ceux que ces domai- 
nes intéressent que je compte fonder 
la branche européenne de cette acti- 
vité d'ici un an environ. Dans cette 
perspective, j'invite ces personnes à 
me contacter. 


Bernard Bel - ISTAR - 113 Jorbagh - 
New Delhi 110003 - Inde 


Je commercialise un logiciel de déco- 
dàge des émissions radiotélégraphie 
(RTITY}) au prix de 608 francs. À 
l'aide d'un récepteur BLU. il est pos- 
sible de décoder les messages en 
trois vitesses. les sauvegarder sur dis- 
quette et les visualiser sur écran ou 
imprimante. Les résultats obtenus 
sont tout à fait satisfaisants et jinvite 
les personnes intéressées à m'écrire. 


Monsieur Guedi Michel - 34 rue 
Pierre Curie - 93138 Noisy le Sec 
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10° CONGRÈS-EXPOSITION DE MICRO-INFORMATIQUE, DU 16 AU 19 FÉVRIER 1985, 
PALAIS DES CONGRES, CIP, PORTE MAILLOT, PARIS. 


EXPOSITION : ) PROGICIELS / BUREAUTI- 
QUE / TELEMATIQUE / ROBOTIQUE / INTERCONNEXIONS / PÉRIPHERI QUES? ACCESSOIRES / 


CONFÉRENCES : 
SYSTÈMES : VERS UN NOUVEAU STANDARD / COMPRENDRE LA TÉLEMATIQUE / L'AVENIR DU 


GRAPHI- 


UN 1 ORICD'UNE VALEUR:DE Fe 
DONNE ACCES-A TOUTES.LES CONFERENCES. CATALOGUE DÉTAILLÉ SUR SIMPLE DEMANDE À 
SYBEX, 


A propos des trucs pour Apple Wri. 
ter Il et /'e° de H  Thiriez dans le 
Pom's 12, j'ajoute quelaues mots sur 
la commande CTRL-V. I! est vrai 
que le glossaire de la version e in- 
terprète les caractères de contrèle 
comme en mode direct. il est donc 
nécessaire de les faire précéder de 
CTRL-V dans le glossaire Or. pour 
des raisons évidentes. il n'est pas 
possible d'entrer CTRL-V dans un 
texte par le moven habituel On a 
donc prévu sur la disquette un fichier 
(CONTROLV) contenant le seul ca- 
ractère CTRL-V pour pouvoir l'insé- 
rer dans un texte qui peut servir de 
glossaire 1 v à toutefois un moven 
qui évite les accès répétés à la dis- 
quette. | suffit d'ufiliser n'importe 
quel autre sumbole à la place de 
CTREL-V. ‘*" par exemple. En fin de 
travail. on remplacera toutes les “+” 
par des CTRL-V en utilisant la 
commande : CTRL-B puis CTRL-F 
*/CTRL-Va En effet. finstruction 
CTRL-F n'interprète pas le CTRL-V 
mais se contente de l'insérer 


Daniel HIRST - 13090 AIX 





Je vous propose un petit programme 
Basic complémentaire de la routine 
de comparaison de programmes 
Basic de Gérard Michel. publiée dans 
le Poms 11 (BF OBJ) 

Ce programme demande les noms 
des programmes à comparer et crée 
un fichier EXEC dont il lance f'exé- 
cution pour réaliser la comparaison 


Gérard Hisleur - 38320 Evbens 


10 HOME : HTAB S: INVERSE : PRINT “CONP 
ARAISON DE FICHIERS BASIC" 

20 VTAB 7: HTAB 1: PRINT “FICHIER 1 : * 

30 VTAB 10: HTAB 1: PRINT ‘FICHIER 2 : 


40 NORMAL : VTAB 7: HTAB 13: INPUT "JF 
ie 

SO VTAB 10! HTAB 13: INPUT “‘"3F29 

60 DS = CHRS (4): ONERR GOTO 70: PRINT 
D6J"DELETE DI1F.EXEC" 

70 POKE 216,0: PRINT D&; "OPEN DIF.EXEC" 
: PRINT DS8;‘WRITE DIF.EXEC"* 

80 PRINT ‘“BLOAD DIF.OBJ°*: PRINT “LOAD ” 
3F19: PRINT ‘“POXE 103,PEEK(175):P 
OXE 104,PEEX(176)"°: PRINT “LOAD * 
:3F28: PRINT "CALL 37500" 

@5 PRINT ‘CALL979": REN PATCH A.AVRANE 

90 PRINT Dat"CLOSE”*: PRINT Das'"EXEC DIF 
.EXEC” 





Disk check-up... 





Pom's n° 15 


N.D.LR. 


1} Plusieurs lecteurs nous ont signalé 
qu'ils avaient résolu les problèmes 
concernant là copie sur imprimante 
des écrans de présentation des dis- 
quettes Poms. La solution adoptée 
consiste alors toujours à envoyer à 
l'imprimante les codes permettant de 
supprimer l'affichage simultané à 
l'écran. 

Nous n'avions peut-être pas assez in- 
sisté sur ce point dans les numéros 
précédents. mais il est certain que. si 
l'interface dont vous disposez affiche 
à l'écran en même temps qu'elle en- 
voie les caractères à l'imprimante. 
lécran ainsi recopié est simultané- 
ment modifié et ne peut correspon- 
dre à l'écran original 

Si tel est votre cas. il suffit donc de 
rajouter un PRINT du code de 
contrôle supprimant cet affichage sur 
votre matériel, dans la ligne du pro 
gramme MENU des disquettes qui 
appelle la routine de hard-copy (gé- 
néralement la ligne 70) Cette ins- 
truction PRINT ‘code de contrôle” 
doit venir juste avant le CALL 
37989 


2} Plusieurs lecteurs nous ont par ail 

leurs retourné des disquettes ‘ détrui 

tes” à la suite d'une fausse manoeu 

vre sur laquelle il peut être bon 
d'insister un instant. En l'occurrence. 
les. personnes concernées ont tape 
"EXEC Fichier”. alors que ‘Fichier’ 
n'était autre qu'un fichier source en 
assembleur sauvé sous format TEXT 

Précisons donc que tout fichier TEXT 
{précédé dun T au catalogue) n'est 
pas pour autant un fichier EXECuta 

ble. En particulier, il ne faut JAMAIS 
faire un EXEC d'un fichier source 
d'assembleur. La revue précise tou 

jours quelles sont les opérations per- 
mettant de mettre en reute un pro- 
gramme en langage-machine. et la 
présentation des disquettes rappelle 
également à quoi correspondent les 
différents fichiers et comment il faut 
les utiliser. En suivant ces indications 
vous éviterez souvent de détruire vos 
disquettes. 


Précisions et errata 
Moniteur Etendu du Pom's 8 


A l'issue d'un long débat, il semble 
que la seule solution simple pour ré- 
soudre le petit problème du buffer 
d'entrée dans ce programme passe 
par une modification du programme- 
source comme suit : 


— Ligne 160: LDX #0 au lieu de 
LDX #1 (soit 8D5F: 00 dans le 
code-obijet). 
- Ligne 163 NOP au lieu de INY 
(soit 8D66: EA dans l'objet). 

Insérer une ligne 897 INC CH 
avant la ligne 897 originale (JSR 
UP) 


Bloc-notes du Pom'’s 13 


A la ligne 2540. il convient de rem- 
placer .121° par ‘LI21 pour que 
la fonction de destruction des fichiers 
fonctionne normalement 


ICARE - Pom's 14 


La liste des modifications publiée 
dans le Poms 14 concernant l'adap- 
tation du programme Tortue du 
Poms 6 en vue de son intégration 
au logiciel ICARE était malheureuse- 
ment incomplète Vous trouverez ci- 
après la récapitulation des opérations 
à effectuer sur le programme source 
original pour cette implantation 


e Remplacer la séquence ‘Suite Ins- 
tructions par celle publiée dans le 
Pom's 14 

e Supprimer les lignes 579 à 612 

e La ligne 573 devient BNE EERR 

e La ligne 271 devient PLUME HEX 
00 

e Dans la ligne 138 T10 remplace 

T1] 

Supprimer les lignes 134 à 137 

Supprimer les lignes 65 à 90 

Supprimer la ligne 55 

Assembler le nouveau source ainsi 

constitué à l'adresse $886E 


Disque 64K - Pom's 14 


1] faut rajouter un code D9 à la fin de 
la técapitulation du programme 
AÛTO RWAUXINIT.OBJ en 50 FF. 


Disques virtuels 16K et 64K 


Si vous possédez deux lecteurs de 
disquettes. vous pouvez en ‘fabri- 
quer” un troisième en évitant de 
mettre le disque virtuel en lieu et 
place de votre lecteur 2. Il suffit pour 
cela de désigner le disque virtuel 
comme ‘lecteur 3° et de faire ad- 
mettre au DOS l'existence de ce lec- 
teur. La routine de gestion du lecteur 
virtuel étant chargée. les POKESs sui- 
vants réalisent l'opération 


1) Disque 16K 


e POKE 488253 
e POKE 433553 


2) Disque 64K : 


e POKE 483723 
e POKE 433553 
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DISQUETTES 


HAIFA (cf. Pomsn' 5) à 55,00 F 
H-BASIC. (cf. Pomsn S$) à 15000 F 
MUSIC ....... | (cf. Pom's n° 10) à  8000F 
DISK-MANAGER (cf Pomsn 11) à 45000F 
DBSTAG (CP M) (cf. Pomsn 11} à 45000F 
JEUX A {cf. Pom's n 12} à 80.00 F 
JEUX B {cf. Pomsn 12} à 80.00 F 
BASICIUM RE STE (cf. Pomsn 13) à 15000F 
DEMO CX SYSTEME 64K ..…... (cf. Pomsn 13) à  5500F 
DEMO JANE 64K (cf. Poms n 13) à  55.00F 
EP:E::re  . (cf. ce numéro) à 15000F 
MACINTOSH .......... (cf. ce numéro) à 15000 F 
PASCAL (cf. ce numére) à 8000 F 


RECUEILS 











N° 1, recueil des revues 1 à 4 à 130.00 F 
Disquettes d'accompagnement des numéros 1 à 4 à 15000F 
N° 2, recueil des revues 5 à 8 à 13000F 
Disquettes d'accompagnement des numéros 5 à 8 à 19000F 
ANCIENS NUMEROS 
REVUES PET 8 à  35.00F 
REVUES JL 40 11 
12 13 14 15 à 40.00 F 
DISQUETTES l 2 3 4 5 
6 7 8 9 10 
11 12 13 14 15 à  955.00F 
ABONNEMENTS 
POUR 6 NUMEROS à partir dun 
ABONNEMENT SANS DISQUETTES à 20000F 
ABONNEMENT AVEC DISQUETTES à 48000F 
TOTAL TTC 
Supplément expédition 
par avion 
MONTANT 
DU REGLEMENT 
Ces tarifs comprennent l'envoi postal en France métropolitaine, CEE et Suisse (voie aërienne exceptée) 
Supplément avion : 10 F par numéro et ou disquette 
Envoyez ce bon et votre règlement à 
Editions MEV - 64-70, rue des Chantiers - 78000 VERSAILLES 
Nom 
Adresse 





om 


Pom's n° 15 


AC3l 


PROMOTION 1° ANNIVERSAIRE 


Prix TTC 
Lecteur de disquette 5” 1/4 half size.....,......... 1950 
Carte contrôleur .. : 400 
Disquettes grande marque {les 10) ................. 220 


CARTE LANGAGE —+ 1 bte disq.. 500 
CARTE 80 COLONNES (pour 11 +) 750 
(avec kit inverse et minuscules accentuées) 


CARTE 128 K 1600 
Interface parallèle pour EPSON av cable......,,.... 400 
Microbuffer 32 K ................ 














VENTILATEUR EXTERNE . < : sise O0 
JOYSTICK LUXE (précisez ou Ile)............. 200 
Accelerator, Applicard, Carte 8088, etc. nous consulter 

MONITEUR PHILIPS 12" Vert..... ; .. 1000 
ASCII Express Professlonnal......, ressens 1200 
& beaucoup d’autres programmes 


PROMOTION SUR NOS IMPRIMANTES 


IMPRIMANTE Graphique 
avec interface parallèle et cable ... 3500 






















Prix modifiables sans préavis, stock limité 
* APPLE Il est une marque déposée de APPLE COMPUTER INC. 


SE En een nie Rqu nc 
ls BON DE COMMANDE à retourner à MACSI 125, rue AMELOT 75011 PARI: 
Î 


REGLEMENT JOINT 
Chèque 
GiCP rt ar: 
Mandat lettre Achat 3 


NOM. Prénom 





rue 


Code postal 2e cu NiIlle 


— 


Matériel possédé 
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Le cadeau d'Atari 
à tous les possesseurs de VIC 20, 
Commodore 64, Apple Il et TI 99/4. 


2” 
À 











Avec Atarisoft, découvrez 13 des plus grandes stars d'Atari. 


Même si vous n’avez pas d'ordinateur Atari, Atarisolt vous permet désormais de 
découvrir les programmes Atari les plus célèbres : Pac-Man, Centipède, Jungle Hunt, 


Pôle Position, Galaxian, Miss Pac-Man, Joust, Moon Patrol, ATARISOI I | 


Dig-Dug, Donkey Kong, Robotron 2684, Defender, Stargate. 


